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BASES 



1. Podrán participar todos nuestros 
lectores, cualquiera sea su edad. 

2. Los programas podrán ser envia- 
dos en cinta de cassette, debida- 
mente protegidos en su estuche de 
plástico, o en disco de 3 1/2 pulga- 
das. En este último caso se remitirá 
al participante un disco virgen en 
el momento de recibir el programa 
enviado. 

3. Todos los programas deberán lle- 
var la carátula adjunta, ó bien foto- 
copia de la misma. 

4. Cada lector puede enviar tantos 
programas como desee. 

5. No se aceptarán programas ya pu- 
blicados en otros medios o plagia- 
dos. 

6. Los programas deben seguir las 
normas usuales de programación 
estructurada, utilizando líneas 
REM para marcar todas sus partes, 
subrutinas donde sean necesarias, 
etc. 

7. Todos los programas deben in- 
cluir las correspondientes instruc- 
ciones, lista de las variables utitili- 
zadas, aplicaciones posibles de 
programa y todos aquellos comen- 
tarios y anotaciones que el autor 
considere puedan ser de interés 
para su publicación. 

PREMIOS 

8. Los programas serán premiados 
mensualmente, de modo acorde 
con su calidad, con un premio en 
metálico de 2.000 a 15.000 ptas. 

FALLO Y JURADO 

9. El Departamento de Programa- 
ción de MSX Club de Programas 



CONCURSO DE PROGRAMAS 
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de PROGRAMAS 
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hará la selección de aquellos pro- 
gramas de entre los recibidos se- 
gún su calidad y su estructuración. 
Los programas seleccionados apa- 
recerán publicados en la revista 
MSX-Club de Programas, en la 
que se publicará, junto con el pro- 
gramaba cantidad con que ha sido 



premiado. 

11. Las decisiones del jurado serán 
inapelables. 

12. Los programas no se devolverán 
salvo que así lo requiera el autor. 

13. El plazo de entrega de los progra- 
mas finaliza el 1 de septiembre 
1988. 




Remitir a: I de programas I M] PROGRAMA 
Roca i Batlle, 10-12, bajos 08023 Barcelona 



Editorial. 

UN POCO DE 
MOVIMIENTO 

El mundo de los MSX nos. tiene acos- 
tumbrados a una vida sosegada, tranqui- 
la. El mundo MSX es un mundo estable, 
sin sobresaltos. Todo ocurre poco a poco, 
sin brusquedades. La campaña de Navi- 
dad de cualquier empresa dedicada a los 
videojuegos se cierra con el plantea- 
miento de relizar mejores juegos para el 
verano. Algo monótono. 
En general este tipo de monotonía es de 
agradecer, ya que nos da una idea de la 
consolidación del estándar en nuestro 
mercado. 

Pero parece que acaba de despertar un 
monstruo de los videojuegos: Argus 
Press. Argus Press, que posee los dere- 
chos de QuickSilva, Mind Games, Bug- 
Byte y Lothorien, fue comprada el pasa- 
do septiembre por Stephen Hall. Hall, 
desde hace un año director de Argus 
Press Software, ha decidido dar una nue- 
va imagen a la compañía. Y parece que 
la cosa va muy en serio. En poco tiempo 
ha dado una serie de pasos, que nos hacen 
confiar en el éxito de esta compañía. 
Pero de eso hablaremos en el próximo 
número. Hemos querido adelantaros 
algo porque tenemos una verdadera ex- 
clusiva. Stephen Hall estuvo en España 
y nos concedió una entrevista exclusiva 
de la que os hablaremos en nuestro pró- 
ximo número. Os aseguramos que sus 
declaraciones, fueron de lo más explosi- 
vas. 

Por lo demás os dejamos ante otro nú- 
mero de nuestra revista. Un número en 
el que encontraréis el mapa de Phantis 
con los cargadores de vidas infinitas para 
sus dos etapas, en el que también encon- 
traréis, por fin, el programa ganador del 
concurso de verano. Un programa que, 
dada su alta calidad, os recomendamos 
teclear. 

En definitiva, es un número más pero, 
como todos, un número muy especial. 

MANHATTAN TRANSFER, S. A. 
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MONITOR AL DIA 

Las novedades más interesantes del 
mundo MSX. 



LINEA DIRECTA 

Respondemos a las consultas de nues- 
tros lectores. 
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TABLON DE 
ANUNCIOS 

Dos inserciones gratuitas para com- 
prar, vender e intercambiar hard y 
soft. 



1 AEL BASIC 
HjPASO A PASO 

¿Cómo hacer buenos programas? (3) 

10OVER THE RAILWAY 

|¿ Programa en BASIC especialmente y 



paralelamente comentado para que lo 
veas claro. Lo repetiremos. 

1 /PROGRAMAS 

I ¿i 14 Dragón (ganador dei 
concurso de verano) 
23 Asterland 
28 Derivadas e integrales 



% 



21 PHANTIS 

Mapa y cargadores de vidas infinitas 
para conseguir finalizar este exube- 
rante juego de DINAMIC 

OCL'AFFAIRE 

1 ) Uno de los más espectaculares juegos 
* ' para los MSX de segunda generación. 

0 Q VIDEO-POKES 

jQLos pokes de vidas infinitas de los 
'mejores juegos MSX. 
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Monitor al día 




CONFERENCIA 
INTERNACIONAL SOBRE 
AUTOMATIZACION 
DEL MONTAJE 




Organizada por IFS, se celebrará en el 
hotel Royal Lanoaster de Londres, la 9. a 
Conferencia International sobre la 
Automatización del Montaje, durante los días 
15, 16 y 17 de marzo de 1988. 

En este simposio internacional intervendrán 
como ponentes destacadas personalidades de 
institutos tecnológicos, universidades y centros 
de desarrollo- de ingeniería de automatización. 
Se abordarán temas tan interesantes como «El 
diseño del producto para su montaje automá- 
tico», «Montaje flexible», «Estrategia y Plani- 
ficación en el Montaje» y «Sistemas Avanzados 
de Manipulación». 

En este evento internacional, y dentro del 
marco de la ponencia «JAPAN Vs EUROPE 
FORUM2, intervendrá Mr. Philip Robson, di- 
rector general adjunto de TAYLOR HITEC, 
Ltd., y director del proyecto FAMOS-EUREKA 
en el Reino Unido. 

TAYLOR HITEC, Ltd, empresa de ingenie- 
ría británica, tiene más de 20 años de experien- 
cia en el diseño y desarrollo de sistemas de alta 
tecnología y robotización en las áreas de fabri- 
cación y montaje flexible, y está asociada en 
España con CENTUNION, Española de Coor- 
dinación Técnica y Financiera, S. A. La Divf- 
sión de Automatización Avanzada y Robótica 
Industrial, de Centunión está, así mismo espe- 
cializada en el diseño y suministro de sistemas 
flexibles de producción, control y manipulación 
de alta tecnología orientados especialmente ha- 



cia el área de montaje. 
Para mayor información, dirigirse a: 

CENTUNION 

División Automatización Avanzada y Robótica 

Industrial 

FuencarraL 123 

28010 MADRID 

Tel.: (91)656 0415 

Telex: 43941 

Fax: 676 10 57 



DICCIONARIO 

DE ELECTRONICA 

Rudolf F. Graf. 
Traducción: Colectiva 
Revisión: Francisco Javier López Aligué 
Colección: «Diccionarios» y «Genda y 
Técnica» 

Resulta realmente difícil imaginar que en 
los pocos años que tiene de vida la 
revolución electrónica, hayan aparecido 
alrededor de 25 000 términos nuevos. Sin em- 
bargo, este DICCIONARIO DE ELECTRONI- 
CA tiene esa cantidad de vocablos y además 
incorpora un glosario inglés-español de alrede- 
dor de 250 páginas, imprescindible para quienes 
utilizan documentación en lengua inglesa. 

Una obra como ésta marca el principio del 
fin para los diccionarios habituales, y sería de 
desear que empezaran a aparecer otras simila- 
res en otros campos del saber. 

El texto está ilustrado con más de 600 figuras 
con una óptica de clarificación de los significa- 
dos. Para ello la mayoría de los dibujos han sido 

ginaL 

El diccionario incorpora además tablas de 
acrónimos, símbolos y abreviaturas, así como 
una relación de unidades en el SJL y es- 
quemas. 

En la redacción se ha tenido en cuenta tanto 
el empleo de un lenguaje norma\ sin tecnicis- 
mos supérfluos, como la utilización del argot 
conocido por cualquier especialista. 

Francisco Javier López Aligué es catedrático 
de Electrónica y director del Departamento de 
Electrónica e Ingeniería Electromecánica de la 
Universidad de Extremadura. 



Galardón para Dinamic 



ENTREGA DEL PREMIO 
JOVEN EMPRESA, 1987 



l 1 pasado día 14 de enero, a las 20.00 horas 
y dentro de los actos conmemorativos del 
4 II Congreso de Júnior Empresa, se cele- 



bró en el restaurante MAYTE COMMODORE 
de Madrid la entrega del PREMIO JOVEN 
EMPRESA 1987. 

Este premio es la primera vez que se convoca 
en España —contando con una gran tradición 
en el exterior— y pretende reconocer el mérito 
de jóvenes empresas con una antigüedad míni- 
ma de 3 años desde su creación y a cuyo frente 
se halle un director general con un máximo de 
edad de 35 años. 

Dicho premio fue convocado por la Confe- 
deración Española de Júnior Empresa, patroci- 
nado por el Banco Hispano Americano, y el 
jurado — presidido por D. Claudio Boada — 
estaba integrado por importantes personalida- 
des del mundo empresarial y de las finanzas. 

Concurieron a él un total de 14 jóvenes 
empresas y el premio recayó en MICRODIGI- 
TAL SOFT, S. A., más conocida por la marca 
con que comercializa sus productos: DI- 
NAMIC 

MICRODIGITAL SOFT, S. A., se constituyó 
con la idea de proucir y comercializar vídeo- 
juegos para ordenadores domésticos. 

El jurado valoró especialmente las innovacio- 
nes de esta empresa en gestión y tecnología, 
entre las que destacó: la juventud de sus inte- 
grantes, ya que la media de edad del staff 
directivo es de 22 años; su crecimiento, que en 
el último ejercicio ha superado en volumen de 
ventas el 450 %; y el hecho de haber, sabido 
i de líder en su mercado me- 
i estrategia de marketing. 



MUEBLES PARA 
ORDENADORES 



Se ha diseñado en Gran Bretaña un sistema 
de muebles de oficinas para ordenadores 
que incorpora unos grandes huecos en el 
interior de los armazones de mesas donde alojar 
modems y transformadores y con los cuales dar 
paso a grandes mazos de cables en torno a las 
oficinas. Los citados huecos tienen también es- 
pacio para conductos a través de los cuales 
proporcionar aire fresco a cada estación o pues- 
to de trabajo, así como proporcionar amplio 
espacio para dar cabida al exceso de longitud 
de los cables. 

El «Primascope» es un sistema flexible dis- 
eñado para oficinas en las que existen grandes 
cantidades de ordenadores y otros equipos elec- 
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trónicos, a fin de dar acomodo seguro a todos 
los cableados y deparar el máximo espacio de 
suelo. Cada puesto o estación de trabajo puede 
alojar tres canales horizontales de cables, mien- 
tras que la longitud excesiva de los cables puede 
ser almacenada también dentro de la misma 
cavidad Se ofrece una completa accesibilidad a 
través de las superficies de trabajo y de las 
cubiertas de los extremos. El acceso por el suelo 
es amplio, para permitir una fácil instalación o 
extracción de cables y de alambres. 

Los cables transmisores de datos, de energía 
eléctrica y de telecomunicaciones pueden sepa- 



rarse tamo vertical como horizontalmente, a fin 
de impedir interferencias, mientras que el sis- 
tema pueda dar alojamiento a dobleces de cables 
de 200 mm de radio, lo que hace posible la 
colocación en torno a la oficina de enlaces de 
comunicación fibra-ópticos y LAN. 

Los muebles son fáciles de instalar, ampliar, 
trasladar y redisponer y se ofrecen pantallas en 
tres alturas: de 0,75 m, 1,10 m y 1,60 m. Dichas 
pantallas pueden igualmente ser empleadas 
como tableros donde fijar indicadores, diagra- 
mas, etc, pudiendo apoyarse en ellos unidades 
por encima de las superficies de 



trabajo, a fin de economizar espacio de suelo. 
Pueden agregarse unidades conectoras o empal- 
madoras cuadradas y triangulares, así como pe- 
destales móviles, para proporcionar adicionales 
superficies de trabajo. Esta gama de muebles 
está acabada en chapa maciza y rebordes, con 
laminados de gris claro, disponiéndose además 
de otras piezas haciendo juego con aquéllas. 

Para más información dirigirse a: 
Project Office Furniture PLC, 
(Contacto C Wood), 




LA NUEVA DROGA 



La aparición de los ordenadores do- 
mésticos como hoy los conocemos 
ha representado un cambio en la 
forma de utilizar el tiempo libre, espe- 
cialmente entre los más jóvenes. 

Cada vez más jóvenes pasan sus tardes 
y fines de semana sentados frente a una 
pantalla de ordenador. Los unos, matan 
su tiempo con videojuegos, los otros, ge- 
nerando día a día mejores y más com- 
plicados programas. Muchos de estos jó- 
venes informáticos caen en lo que se ha 
dado en denominar «la nueva droga» 

La informática es una disciplina alta- 
mente absorbente. Es normal pasarse 6 
y 7 horas delante de una pantalla sin 
acordarnos siquiera de comer algo. Ante 
esta alarmante exclusividad que parece 
caracterizar a los aficionados a la infor- 
iriática se ha levantado una voz de 
alarma. 

¿No tendrá esta «nueva droga» conse- 
cuencias negativas, bien física o psicoló- 
gicamente? 

Se ha demostrado, tras numerosos es- 
tudios, que la permanencia delante de 
pantallas no es tan perjudicial como mu- 
chos pensaban. La constante actividad 
intelectual de los aficionados a la infor- 
mática desarrolla en ellos cotas de inte- 
ligencia superiores a la normal (aunque 
en muchas ocasiones se produzcan des- 
censos en las calificaciones escolares). 

En definitia, la «nueva droga» no es 
tan conocida como muchos cruzados pre- 
tendían afirmar. No creemos que sea lo 
ideal pasarse horas y horas delante de 
una pantalla; pero tampoco creemos que 
eliminar esta «droga» sea la solución a 
estos problemas. 
-Jnade.as 



das por muchos padres para retirar a sus 
hijos del ordenador es la pérdida de vi- 
sión causada por las pantallas. Es inne- 
gable que esto es cierto; pero también es 
muy fácil de evitar (y no precisamente 
apagando el ordenador. 

Pese a lo que mucha gente piensa, nó 
son las radiaciones las causantes de la 
pérdida de visión. Aunque estas radiacio- 
nes existen y son perjudiciales, su efecto 
a medio plazo sobre la visión es mínimo. 
Pueden tener efectos a largo plazo, tras 
muchos años de trabajo ante pantallas; 
pero no por pasarse las vacaciones de 
Navidad pegado al ordenador. * 

Sin embargo hay dos aspectos mucho 
más nocivos que la radiación para los ojos 
de los aficionados a la informática. El 
primero de ellos es el cambio constante 
del punto de visión a que obliga el hecho 
de mirar primero al teclado y, acto segui- 
do, a la pantalla. Este enfocar y desen- 
focar continuo obliga a nuestros ojos a un 
gran esfuerzo que puede desembocar en 
vista cansada o en algún otro tipo de 
pérdida de visión. 

El otro punto importante es el contras- 
te existente entre la pantalla y el resto 
de la habitación. Tanto si éste es muy 
elevado, como si es muy pequeño, nuestra 
vista saldrá perjudicada. 

Ambos puntos tienen una fácil solu- 
ción, muy extendida entre los programa- 
dores, que es la utilización de gafas con 
algún tipo de filtro que por una parte 
reducen el contraste excesivo y por la otra 
dificultan la visión del teclado con lo que 
el usuario se acostumbra a no realizar tan 
frecuentes cambios en su mirada. 
Otro punto muy comentado es la j 



informática, como tal, no es fuente de 
este tipo de alteraciones; pero es un re- 
fugio frecuente para chicos con un ele- 
vado coeficiente de inteligencia, en cieno 
modo rechazados por algunos de sus 
compañeros y que encuentran en el or- 
denador un compañero ideal. 

Evidentemente, si se combina la infor- 
mática con otras aficiones, el riesgo a este 
autorecogimiento desaparece drástica- 
mente. 

En definitiva, y para tranquilizar a- 
nuestros lectores, la informática en sí no 
es, en absoluto perjudicial para nadie. 
Sólo en casos muy extremos, con uso 
continuo del ordenador superior a las 6 
horas diarias, con chicos poco relaciona- 
bles e introvertidos, el ordenador puede 
convertirse en esa «droga» que comen- 
tábamos. 

Pero hay que recordar que la afición a 
la informática no es únicamente negativa, 
sino todo lo contrario. Las ventajas que 
aporta a los jóvenes el uso de esta he- 
rramienta son mucho mayores que las 
desventajas que pueda acarrear. 

Los videojuegos (por definición inúti- 
les y obsesivos) desarrollan enormemen- 
te los reflejos y la capacidad de reacción. 
Pero aquellos que se deciden por la pro- 
gramación elevan su capacidad de abs- 
tracción y de expresión mediante el len- 
guaje escrito. 

• En muchas ocasiones la afición a la 
informática redunda en un aumento de 
las calificaciones escolares (aunque siem- 
pre se destaquen los casos en que ocurre 
lo contrario y, en todo caso, la afición a 
la informática abre las puertas a un es- 
peranzador mercado de trabajo. Hoy es- 
tán colocándose muchos de los aficiona- 
dos a la informática de hace pocos años, 
aun sin tener ningún tipo de estudio su- 
perior. 

Lo que no debería ocurrir en ningún 
caso es que la informática represente una 
pérdida del tiempo dedicado a otras ac- 
tividades como el estudio, el deporte, etc 
La informática puede complementarlas a 
todas ellas; pero nunca sustituirlas. 





Agradeceríamos que Julián Ru- 
bio*- se pusiera en contacto con 
nuestro departamento de suscrip- 
ciones por motivos referentes a la 
pubUcatiÓQ de un programa. Pue- 



UNIDADES DE 
DISCO 

Una unidad de 5 1/4 de un PC, 
¿puede usarse en, un ordenador 
MSX?, y viceversa, ¿una unidad de 
MSX en un PC? 



Talavera de la Reina 
(TOLEDO) 

El intercambio de unidades que 
propones es perfectamente facti- 
ble; pero nada fácil. El problema 
no radka en las unidades de disco 
(perfectamente intercambiables), 
sino en los controladores de disco. 

Un controlador de disco de un 
PC no puede conectarse a un MSX, 
ni a la inversa. De este modo, para 
poder conectar nuestra unidad 
MSX al PC debemos seguir los 
siguientes pasos: 

1P Conseguir un controlador 
de disco para PC que soporte dis- 
cos de 3 1/2 pulgadas. 

2P Despojar a la unidad de dis- 
co MSX del controlador de disco 
que incorpore. 

3P Solucionar ¡as diferencias 
entre conectadores y realizar la co- 



unidad de PC a un MSX resulta 
algo más complicado, ya que en el 
mercado no existen controladores 
de disco de 5 1/4 que se vendan 
por separado. 

Pese a todo, no comprendemos 
exactamente el motivo de tu pre- 
gunta, ya que existen unidades de 
.5 1/4 específicamente disenadas 
para los MSX (Spectravideo) y 
unidades de 3 1/2 específicas para 
PC, que te darán un completo re- 
sultado. 

Debes saber por último que el 
formato de disco 3 1/4 de MSX es 
totalmente compatible con el de 
los IBM PC y que lo mismo ocurre 
entre las unidades de 3 1/2 MSX 
y las de PC. 



DUENDE* 
INFORMATIC 
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recha no funcionaba. En el manual 
salían unas instrucciones para 
comprobar las teclas; pero tampo- 
- «lo que le 



Marc Camps Ri 
(BARCELONA) 



Evidentemente el fallo de la te- 
cla de cursor derecha no tiene nada 
que ver con el hecho de que apa- 
garas tu ordenador con el juego 
dentro. /No me digas que normal- 
mente sacas los cartuchos con el 
ordenador encendido! 

Es totalmente normal el hecho 
de apagar el ordenador antes de 
retirar el juego (es lo que hay que 
hacer siempre), por lo que no pue- 
de ser la causa del error. 

Es posible que la tecla fallara por 
causas mecánicas, ante lo cual, sólo 
cabe una posible solución, enviar el 
ordenador al servicio técnico de 
Sony, que te proporcionará la so- 
lución adecuada al problema de tu 
aparato. 



Tengo un SONY MSX HB-20P. 
Hace poco cerré el ordenador con 
un juego dentro. Cuando lo volví 
a encender, la tecla del cursor de- 




TEST DE LISTADOS 

Les remito la presente para ver 
de solucionar unos errores que me 
salen en el programa «DECLA- 
RACION DE LA RENTA», pu- 
blicado en la revista MSX- 
EXTRA, numero 38. Dichos erro- 
res son «Sintax Error en 200, 320, 
330, 1910» y al parecer todas las 
líneas que llevan el signo «[». 

Vicente García Hernández 
Ajofrin (TOLEDO) 

El error que nos comenta no se 
debe a la aparición del símbolo «.[», 
sino a otro de los componentes de 
dichas líneas. Todas ellas coinci- 
den, además de por la existencia de 
dicho símbolo, por realizar llama- 
das a la rutina en ensamblador que 
contiene el programa: USR (...) 

Suponemos, por tanto, que el 
error cometido al introducir el pro- 
grama radica • 
y no en las 
rece el error. 



EJ hecho de que los errores apa- 
rezcan en líneas diferentes a aque- 
lla en las que se producen realmen- 
te, es bastante normal en los 
programas. Para solucionarlo, re- 
comendamos encarecidamente la 
utilización del test de listados, que 
le hubiera permitido localizar la 
linea en la que se encuentra el 
verdadero error. Si hubiera utiliza- 
do el test del listado se hubiera 
ahorrado un montón de quebrade 
ros de cabeza. 



EDITOR DE 
GRAFICOS 

Os agradecería si me pudierais 
indicar algún programa de gráficos 
para un ordenador HB-10 Toshiba 
de 64Kb que me permita realizar 
gráficos, insertar textos, y volcarlo 
todo a la impresora 

¿Qué hace EDDY II? ¿Es cinta, 
disco o carrucho? 

Delfín Gil Herrera 
(BARCELONA) 

Responderemos a tu primera 
pregunta respondiendo a la segun- 
da. EDDY 11 es uno de los mejores 
— por no decir el mejor — diseña- 
dor gráfico para los MSX de pri- 
mera generación. Este programa 
permite realizar líneas, polígonos, 
círculos, arcos, insertar textos, tra- 
mar con diferentes colores, mez- 
clar cobres para conseguir tonali- 
dades nuevas, etc. 

Además amplía el BASIC con 
nuevas instrucciones, permitiendo 
gracias a esto generar gráficos en 
BASIC de una forma mucho más 
sencilla a la habitual. 

Es un programa muy completo 
que, por lo que nos comentas en 
tu carta, solucionará perfectamente 
tus necesidades. 

Un último detalle. EDDY 11 (de 
HAL) está distribuido por ZAZA 
Soft en formato cartucho. 



CINTAS 
FANTASMAS 

Hace dos meses que compré un 
MSX de la primera generación. 
Pero desde hace unos días no con- 
sigo sacar los programas de la cinta 
cassette, ya que se imprime en la 
pantalla «Device I/O error». 
¿A qué se debe esto? ¿Puede ser 
un mal funcionamiento del orde- 
nador? o, por el contrario la cinta 
de cassette ¿no es la adecuada?, ya 
que las que utilizo son de 
Cromo. 

Julián Gómez de la Fuente 
(GUADALAJARA) 



Las cintas, como todos sabéis, 
fueron creadas como medio para 
grabar y reproducir sonido. Los 
ordenadores MSX, como muchos 
otros ordenadores domésticos, uti- 
lizan las cintas de cassette para 
grabar sus programas, ya que los 
discos y otros medios de almace- 
namiento son de un coste muy ele- 



vado. 
Desi 



agraciadamente, las antas de 
cassette no son el medio idóneo 
para grabar la información q 
compone nuestros programas. 

Varias causas pueden producir la 
pérdida irremisible de nuestros 

— Pérdida de amplitud en la se- 
ñal grabada en la cinta. Esta pér- 
dida de amplitud se reconoce por- 
que la cinta suena «más flojo» que 
una cinta recién grabada. Este tipo 
de fallos son muy frecuentes entre 
los recién llegados a la informática, 
ya que, 'generalmente, provienen 
de almacenar las cintas en una 
zona expuesta a radiaciones o cam- 
pos magnéticos. Muchos nuevos 
usuarios, desconociendo este pro- 
blema de las cintas (se borran con 
los campos magnéticos), almace- 
nan sus cintas cerca de televisores, 
fuentes de alimentación, altavo- 
ces, etc. 

— Desajuste del azimut del ca- 
bezal del cassette. Un golpe, o sim- 
plemente el uso, pueden desajustar 
el azimut del cassette con el que 
estamos intentando leer las cintas. 
Justo encima del cabezal del casset- 
te existe un pequeño tomillo que 
nos permite ajustar este azimut 
para, de esta forma, conseguir car- 
gar sin problemas cualquier 
cinta. 

— Falta de verificación. Puede 
también ocurrir que, por un defec- 
to de fabricación de la cinta, una 
arruga, o cualquier otra causa, no 
se graben correctamente los datos 
en la cinta. Si hemos efectuado la 
grabación sin comprobar después 
la corrección de la misma es muy 
probable que el error permanezca 
desapercibido hasta el momento 
de volver a cargar la cinta, en el 
que será totalmente imposible re- 
cuperarlo. 

Y otras muchas posibles causas 
que no podríamos enumerar aquí. 
Respecto a la utilización de cintas 
de cromo, es verdad que éstas tie- 
nen una calidad mucho mayor que 
las normales; pero pensamos que 
es un pequeño despilfarro gastarse 
el dinero en una cinta de calidad 
para grabar una señal que, como 
máximo, tendrá una frecuencia de 
4800 Hz. Puedes, por tanto, utili- 
zar cualquier tipo de cinta normal 
que puedas localizar en tu pobla- 
ción sin miedo a que por ello pue- 
das perder los datos grabados en 
ellas. 
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Si quieres rec coi^certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 
^ Nombre y apellidos 
Dirección 
Población 



□ KRYPTON Ptas. 500 - 

□ U BOOT Ptas. 700 - 

□ LORD WATSON Ptas. 1.000- 

□ LOTO Ptas. 900 - 

□ SNAKE Ptas. 600,- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700.- 



CP 

□ STAR RUNNER 

□ TEST DE LISTADOS 

□ HARD COPY 

□ MATA MARCIANOS 

□ DEVIL'S CASTLE 

□ FLOPPY 



Prov. 

Ptas. 1.000,- 

Ptas. 500,- 

Ptas. 2.500,- 

Ptas. 900 — 

Ptas. 900,- 

Ptas. 1.000,- 



Tel.: 



□ MAD FOX 

□ VAMPIRO 

□ SKY HAWK 



I 

Ptas. 1.000,- I 
Ptas. 800,- i 
Ptas. 1.000- | 



Gastos de envío certificado por cada cassette Ptas. 70- Remito talón bancario de Ptas. A la orden de Manhattan Transfer, S. A. ^ 



ATENCION: Los s 
10-12 BAJOS 



i del 10% sobre el c 



i MSX CLUB DE CASSETTES. ROCA I BATLLE 
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Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen 
de esta sección no permiten la inclusión de anuncios con fines de lucro 



Vendo ordenador Commodore 64 y 
periféricos como unidad de discos, cas- 
sette y tableta gráfica. También vendo 
juego originales en disco y cinta. Bue- 
nos precios. Juan Luis Guirau. Tlf.: (93) 
204 03 71. BARCELONA. CP.l. 
Vendo ordenador Sony HB-101P, sis- 
tema MSX, con dos cartuchos de- jue- 
gos, libros de instrucciones y cintas con 
juegos. Completamente nuevo. Precio, 
35.000 Ptas. Tlf.: (968) 23 39 37. 
CP.l. 

Contactos. Hemos traído de Inglaterra 
juegos de MSX, mapas, pokes, chapas, 
pósters gigantes, ampliaciones de 64 
Kb superbaratas, cartuchos convetido- 
res de MSX2 en MSX1 que estamos 
dispuestos a cambiar o vender. Apún- 
tate a nuestro club. Muchos regalos y 
super<arnet. Frederick Per. C/. Santa 
Ana, n° 9, L», 3.» Cerdanyola, 08290 
(BARCELONA). CP.l. 
Intercambio/vendo programas origi- 
nales para MSX. Poseo muchos títulos, 
entre ellos últimas novedades como 
PHANT1S, DESESPERADO, STAR- 
DUST, FREDDY HARDEST, 
GOODY, etc. Para más información 
mandar lista a Joaquín Montero Amat. 
C/. Constitución, n° 31, 3D. 03360, 
Callosa de Segura (ALICANTE). Tlf.: 
(96) 531 H 17. CP.l. 
Vendo. Gran oferta: Samantha Fox, 
Compor (Philips), Arkanoid, Manic 
Miner, Army Moves, Phantomas II ori- 
ginales por 650 Ptas. cada uno, o 3.500 
Ptas. todos. También cambio por Né- 
mesis o Penguin Advenrure. Vendo 
otros juegos por 200 Ptas. Néstor Noci. 
Trav. de Dalt, 100, 7.', 3." 08024 (BAR- 
CELONA). Tlf.: 213 31 82. CP.l. 
Vendo ordenador Sony HB-201P, con 
tecla de PAUSE intacta, lote de mis de 
100 juegos (novedades), cables, revis- 
tas. Precio razonable y a convenir. Fe- 
rrán. Tlf.: (93) 303 30 80. BARCELO- 
NA CP.l. 

Vendo por compra de MSX2, ordena- 
dor Hb- 5 5 P, i ampliación de memoria 
HBM-16, más unidad de disco HBD- 
50. más tres cartuchos, más siete juegos 
y programa de contabilidad 1500 (en 
disco), manuales y cables, por 70.000 
Ptas. Angel Rodríguez. Avda. Habana, 
79-4 E. Tlf.: (988) 22 89 57. ORENSE. 
CP.l. 

Vendo unidad de disco de 3 1/2", doble 
cara Mitsubishi ML-30FD y ordenador 
HB-75P Precio a convenir, incluido 
cables, libros y jegos varios. Todo en 
perfecto estado. Gabi L Pujadas. Tlf.: 
(93) 240 92 94. C/ Riera Blanca, 53- 
5.5, 3.°, 2.' BARCELONA 08028. 
CP.l. • 

Vendo ordenador Philips VG-8235 
MSX2 (teclado y monitor) en perfecto 
estado por no utilizarlo. Garantizado 
(comprado en marzo- 1987). Se inclu- 
yen manuales y programas. Todo por 
95.000 Ptas. Tlf.: (973) 31 05 18. Pre- 
guntar por Jaume. De 9 a 11 de la 
noche. CP.l. 

Vendo Dynadata DPC-200 con ma- 
nual en casti ' 
xiónCRF.c 





tas, cassette con cable conexión y cintas 
vírgenes _para grabar programas. Todo 
por 40.000 Ptas. Manuel Sánchez. QJ 
Mateo Hernández, 18, 2.°, Izq. 37700, 
Besar (SALAMANCA). CP.l. 
Contacto con usuarios de MSX -2 que 
posean el juego DRAGON WORLD 
para intercambiar trucos y poder llegar 
al final. Emilio J. de Haro Abuso. QJ 
Bidasoa, n° 8, 3.°, 6.» 04006 ALMERIA 
Tlf.: (951) 25 44 93. CP.l. 

Contacto. Estoy interesado en cam- 
biar trucos y conocimientos acerca del 
MSX-1 y MSX-2. Escribir a Daniel 
Cortés Zaragoza. QJ Escultor Peresejo, 
26, 7.0 03800 Akoy (ALICANTE). 
CP.l. 

Compro impresora plotter Sony 
PRN-C41 por 15.000 Ptas. y doy ade- 
más 6 juegos de KOMANI (sky Jaguar, 
Tradc & Field I, II, etc), 2 juegos de 
SONY (Mouser, El.) y 20 juegos de 
revistas. Iván Juvilla. QJ Fluxia, n° 207, 
2.o, 3.» 08020 BARCELONA Tlf.: (93) 
308 69 30. CP.L' 

Vendo vídeo grabador-reproductor 
EV-CBE y cámara de vídeo Handycam 
CCD-MBE de Sony, formato de 8 mm. 
Ideal para digitalizaciones y produccio- 
nes de vídeo sobre MSX-2. Tlf.: (976) 
22 24 70. Preguntar por Luis Sanz. 
CP.l. 

Vendo ordenador Sony HB-55P casi 
nuevo (incluye cables, libros, manua- 
les...) ampliación de 64 ?b Philips y 30 
juegos. Todo por "37.000 Ptas. Carlos 
Lafuente. Tlf.: (93) 200 98 92. QJ Cal- 
vet, 21, 4.o, 2.' BARCELONA CP.l. 
Compro libros o revistas de toda clase 
de ordenadores MSX que se refieran a 
temas de lenguaje máquina. Precio a 
convenir. Alvaro Toaode García. Tlf.: 
(981) 51 10 42. Llamar a partir de las 
6 de la tarde. CP.l. 

Vendo SONY HB-101P + cassette 
Bit-corder SDC-600S de Sony + joys- 
tich JSJ-20 de Sony +. 1 carrucho de 
juego original (Konami) + 3 cassettes 
de juegos originales + 7 revistas + 
curso de BASIC de Sony en dos cintas 
de vídeo BETA + cables y manuales. 
Todo por 55.000 Ptas. (sin curso de 
vídeo 50.000). Jorge Ferrer Gracia. QJ 
Cantarero, n.o 5. Monzón (HUESCA). 
" ' 40 28 42. CP.l. 



ampliación de n 
64 Kb. TambkS 
siguientes programas: Death Wish 3, 
Phantis, Freddy Hardest, Highway En- 
counter y Goody por 1.500 Ptas. y 
programas de MSX-2. Llamar los fines 
de semana al Tlf.: (93) 652 16 94 o 
escribir a Antonio Montero. QJ Ciudad 
Cooperativa, 49, 5°, 2.* Sant Boi 08830. 
CP.l. 

Contacto con usuarios MSX Yamaha 
MUSIC computer para intercambios. 
También intercambio juegos y utilida- 
des para MSX en cinta. Segundo Ro- 
dero Rubio. Encomienda de Palacios, 
93. 28030 MADRID. Tlf.: (91) 773 63 
70. CP.l. 

Vendo juegos originales. The living 
daylights (800 Ptas.), Beamrider (2.000 
Ptas.), Black Jack (500), Mofccule man 



(400). Cassene para ordenador con 
cuentavueltas (3.000). Libro de progra- 
ma (700) y cuatro revistas MSX (900). 
Todo por 7.500 Ptas., y regalo Speek- 
Kingl Eduardo Martínez Cerón QJ 
Cura Valera, n° 2. Alhama de Murcia 
(MURCIA). 30840. CP.l. 
Vendo Commodore 64 + datassette + 
joystick + 100 programas (utilidades y 
juegos originales) + manual + libro 
contabilidad para la empresa + intro- 
ducción al CBM-64. Todo por 35.000 
Ptas. También vendo Simon's Basic 
con manual 5.000 Ptas. Urge. Llamar 
al 25 50 95 (987). Angel Luis Bueno, 
a partir de las 10 de la noche. CP.l. 
Vendo ordenador YAMAHA CX-5M 
con módulo musical sintetizador SFG- 
05 + teclado YK-20 + carrucho Voi- 
cing Program, todo por 50.000 Ptas. 
También una lectora de Qukk Disk, 
por 6.000 Ptas. Programas BIT 2 por 
2.000 y DX7 Voicing Program, por 
3.000. Joan Miró. (973) 15 04 17/15 01 
45. CP.l. 

Vendo MSX-2 VG-8235 de 256 Kb y 
DISKDRTVE, monitro color e impre- 
sora VW0030. Todo de Philips. Con 
HOME OFFICE 2, LOGO, TURBO 
PASCAL y sistema operativo en dis- 
kettes. Dejar teléfono contacto en 
(985) 26 13 26. Agustín CP.l. 
Vendo SONY F-700 ¿X-2 con unidad 
de disco doble cara, teclado ratón, etc, 
por 70.000 Ptas. También vendo uni- 
dad de disco Mitsubishi ML-30FD 720 
Kb, doble cara por 40.000 Ptas. Todos 
en perfecto estado y en garantía. Re- 
galo programas. Luis A. Sanz. Latassa, 
22, 50006 ZARAGOZA. Tlf.: (976) 22 
24 70. CP.l. 

Vendo impresor a NEWPRINT Ad- 
mate DP-80LQ, 80 columnas, 120 cps 
y con 24 diferentes tipos y tamaños de 
letra Permite el volcado de pantallas 
gráficas, está casi nueva e incluso ma- 
nual de instrucciones y embalajes oro- 
ginales. Precio a negociar. Además in- 
tercambio juegos en disco de 3.5". 
Llamar o escribir a Alvaro Rodríguez. 
QJ Urzaie, 69, 7.0-Dcha. 36201 VIGO 
Tlf.: (986) 43 28 18. CP.l. 
Vendo Sony HB 501 P por cambio a 
MSX-2, cassette incorporado, 80 Kb de 
RAM, cables, manuales. Todo por 
35.000 Ptas. Antonio Fernández Mora. 
QJ S. Antonio, 17. 04810 Partaloa (AL- 
MERIA). CP.l. 

Vendo ordenador SVI-738 con 80 Kb 
de memoria RAM, unidad de disco de 
360 Kb con sistemas operativos CP/M 
y MSX-2 y una ampliación del BASIC 
todo con sus manuales y amplia docu- 
mentación de informática de regalo 
(65.000 Ptas.). Vendo también televi- 
sión SHARP 12" con 3 canales 
(15.000). Ordenador +. televisión 
(70.000 Ptas.). Llamar al (972) 50 47 
30, de 15 a 17 h, o escribir a A. 
Recasens. QJ Junquera, n° 117, 3B. 
Figueras (GERONA). CP.l. 
Vendo ordenador ,SONY HB-75P 
nuevo 4- plotter Sony. PRN-C41 + 
joystick, revistas, libros, cassettes, pro- 
.. Todo por 65.000 Ptas. Tlf.: 



Las características 



(981) 20 35 63. CP.l. 
Busco algunas revistas MSX -CLUB y 
MSX-EXTRA, intercambiándolas por 
software. Rambla Justo Oliveras, 69, 
4.o, 3. 1 Hospitalet 08901 (BARCELO: 
NA). Dirigirse a Javier Nosás. CP.l. 
Cambio procesador de textos (Philips) 
+ ensamblador ZEM (Philips) + 
Compilador de PASCAL (Philips), to- 
dos juntos por desensamblador MONS 
de Sony. Interesados escribir a: Feo. 
Javier Mateos Muñoz. QJ Pasaje del 
Valles, n.o 12, 4.o, 1.» 08330 BARCE- 
LONA. CP.l. 

Vendo por compra de MSX-2 con dos 
unidades de disco, unidad de disco 
SONY HBD-50, en perfecto estado y 
con un gran número de programas de 
juegos y de gestión en discos. Todo, por 
35.000 Ptas. También cambio 11 jue- 
gos, Wordstar, dBase II, Home Office 
y el compilador Nevada COBOL por 
un compilador de BASIC o de C Angel 
Rodríguez Prada. Tlf.: (98) 22 89 57. 
ORENSE. CP.l. 

Vendo ordenador SONY HB-101P en 
perfecto estado. REgalo manuales, ca- 
bles, embalaje original, 65 juegos entre 
ellos HERO, BEAMRIDER, GOLF, 
RJVER-RAID... y varias revistas. Todo 
por 25.000 Ptas. Interesados ponerse 
en contacto con Carlos Andrés Garrido 
GiL Avda. Manuel de Falla, nO 17, 5- 
C de San Fernando (CADIZ). Tlf.. 
(956) 89 11 79, de 8 a 9 de la tarde. 
CP.l. 

Compro ampliación de memoria de 64 
Kb HBM-64 u otra marca. Christian 
Ortega Padró. Avda. Anselmo Clavé, 
26, 4.o, 2.' Comellá (BARCELONA). 
Tlf.: (93) 377 03 14. CP.l. 
Vendo ordenador musical YAMAHA 
CS5M por 49.900 Ptas. José. Tlf.: (945) 
25 66 50. CP.l. 

Vendo 007 Alta Tensión, Camelot 
Warriors y Pentagram a 800 Ptas. c/u 
(sistema MSX) o los cambio por Phan- 
tis, Phantomas II o El Martínez Vidal. 
QJ Mendizábal, 29, n.o 6. 46011 VA- 
LENCIA. CP.l. 

Compro revistas MSX atrasadas y li- 
bros sobre MSX (piogramación CM, 
descripciones del sistema, etc.). Manuel 
Piñar Ruiz. QJ Real de Cartuja, n.° 50. 
18012 GRANADA. CP.l. 
Vendo ordenador MSX Philips 8020, 
monitor Ambar 80, impresora mat ri- 
cial Philips 0030 (96 tipos de letra 
diferentes^, unidad de discos simple 
cara doble densidad 010 de Philips. Se 
puede vender junto o separado. Regalo 
juegos. Buenos Precios. Envío en 24 
horas. Juan Nievas Pérez. QJ Lepanto, 
24, 3.o B. 43202 Reus (TARRAGO- 
NA). Tlf.: (977) 32 33 67 (noches). 
CP.l. 

Vendo impresora plotter SONY en 
perfecto estado de uso y a precio re- 
galado. Regalo Plumines y si se quiere 
también programas. Escribir a Eustasio 
viviente Acosta. QJ Jara Carrillo, 28. 
30740. San Pedro del Pinatar. MUR- 
CIA Tlf.: (968) 18 20 06. CP.l. 
Contacto con usuarios de MSX en 











También para formar un club MSX en 
Móstoles. Antonio Jesús García Serra- 
no, a Arévalo, n.° 2, 2B. 28930, MÓS: 
toles (MADRID). Tlf.: (91) 618 56 30. 
CP.l. 

Vendo/cambio juegos. Poseo entre 
otros Gaumlet, Army Moves, Arquími- 
des XXI, Star Soldier, Knight Mare, 
Phantis. Oscar J. Urdangaray Beade. 
Tlf.: (981) 28 52 81. CP.l. 
Vendo ordenador Philips VG-8020 de 
80 Kb, con garantía, cables, manuales 
y embalaje original. Regalo más de 30 
cintas con juegos comerciales y utilida- 
des, todas con carátula. También inter- 
cambio programas en disco 3,5". En- 
viar lista a Fernando Gómez. C/ 
Montsant, 32, 3°, 1.» BARCELONA, 
08031. Tlf.: (93) 357 88 22. CP.l. 
Vendo SVI-738 con unidad de disco 
3 5" incorporada. 3 sistemas operativos 
(CP/M, MSX-2 y Disk-Basic). Cone- 
xión RS-232, 80 columnas, salidas ví- 
deo compuesto y televisor. Reset incor- 
porado. Maletín de transporte y 5 
manuales. Compatible ficheros IBM. 
Regalo dBase, Wordstar y un montón 
de juego y utilidades de todo tipo. Pre- 
cio a convenir. Javier, horas de comida 
y noches. Tlf.: (91) 401 91 85 MA- 
DRID. CP.l. 

Vendo ordenador TOSHIBA HX-10 

64 Kb, en buenas condiciones. Además 
de regalar 50 juegos, revistas de MSX, 
cargador de cintas y una estupenda 
cámara de hacer fotos. Todo ello por 
sólo 24.000 Ptas. U Molino, 48-50, 
BARCELONA, 08016. Tlf.: (93) 350 

65 20. Preguntar por Pedro Ruiz. 
CP.l. 

Vendo ordenador Philips 8250 MSX- 
2 con dos unidades dé disco (doble 
cara), 256 Kb RAM 64 ROM, 3 sema- 
nas de antigüedad (en garantía). Rega- 
lo 10 discos llenos de programas. Lo 
vendo por compra de otro más grande. 
PVP: 80.000 Ptas. Llamar de 10.30 a 
12.00 noche. Tlf.: (93) 240 24 86. 
BARCELONA. Preguntar por RA- 
FAEL CP.l. 

Compro programas de dibujo, ensam- 
bladores y editores musicales en disco 
de 3 1/2" (MSX 1 y 2). También 
compraría ratón. Jaime. (91) 479 76 26. 
CP.l. 

Cambio Track & Fíeld II (carrucho), 
CHILLER (cinta) y PANIC JUNC- 
TION (cinta) por el juego Némesis 
(cartucho). Preguntar por Enrique. 
Tlf.: (91) 232 41 01. Madrid. Llamar 
a partir de las 15.30 y los fines de 
semana por la mañana. CP.l. 
Vendo ordenador SVI-738 XPRESS 
con manuales en castellano, conexio- 
nes, maletín de transporte y su emba- 
laje. A estrenar. Tlf.: (976) 56 59 35. 
Santiago Oliver. Zaragoza. Llamar ho- 
ras comidas."CP.L 

Vendo Mitsubishi ML-G3 (MSX-2 con 
unidad de disco incorporada) + Music 
Module (Philips) + 20 discos (llenos 
de los mejores programas)... Todo in- 
tacto por 50.000 Ptas. Jordi Maya Me- 
seguer. C/ San José, 14. 08370, Calella 
(BARCELONA). Tlf.: (93) 769 06 40. 
CP.l. 

Vendo cartucho ROM MSX (Hyper 
Sport I, Kung Fu I, Némesis, Atletic 
Land), impresora plotter Sony PRNC 
unidad de discos 



color, olorter primer v i 
Philips VY-0010 con 



originales en disco de regalo. Sascha 
Ylla.Tlf.:212 72 03. CP.2. 
Deseo contactar con personas intere- 
sadas en intercambiar juegos MSX. En- 
viar lista al apañado 41 de Llinas del 
Valles. Enviaré lista de juegos, más de 
150. Absoluta seriedad Andrés Berme- 
jo. CP.2. 

Vendo ordenador Sony HB-20P, MSX. 
Poco uso, con garantía. Regalo libros, 
revistas, manuales, carruchos y cintas 
de juegos. Sólo por 20.000 ptas. Tel.: 
332 28 25. VALENCIA. Llamar de 14 
a 16 horas. CP.2. 

Compro sofware de aplicaciones y ges- 
tión, en formato de cinta o carrucho, 
también estaría dispuesto a intercam- 
biarlo. Jordi Salvadó. C/ Sant Tomás, 
3, 43330 Riudoms (TARRAGONA). 
CP.2. 

Vendo ordenador SVI-728 MSX y mo- 
nitor en color CZEND por sólo 35.000 
ptas. Todo en perfecto estado. Una 
ocasión única para entrar en el mundo 
del MSX. Jorge Miragall Grau. Avda. 
Uno 4, 2.° 3.*, Sta. Perpétua de Mogoda 
(BARCELONA). Tlf.: (93) 560 53 49 
a partir de las 21.00 horas. CP.2. 
Cambio procesador de textos (Philips) 
+ ensamblador ZEN (Philips) + com- 
pilador de PASCAL (Philips), todos 
juntos por ensamblador MONS de 
Sony. Interesados escribir a: Feo. Javier 
Mateos Muñoz. C/. Pasaje del Valles 
12, 4.° L». 08330 BARCELONA. 
CP.2. 

Vendo por compra de MSX-2 con dos 
unidades de disco, unidad de disco Sony 
HBD-50, en perfecto estado y con un 
gran número de programas de juegos 
y de gestión en discos, todo por 35.000 
ptas. También cambio 1 1 juegos y 
Wordstar, dBase II. Home Office y el 
compilador Nevada de BASIC o de C. 
Angel Rodríguez Prada. Tlf.: (98) 22 
89 57. ORENSE CP.2. 
Vendo ordenador Sony HB-101P en 
perfecto estado. Regalo manuales, ca- 
bles, embalaje original, 65 juegos entre 
ellos: Hero, Beamrider, Golf, River- 
Raid..., y varias revistas, todo por 
25.000 ptas. Interesados ponerse en 
contacto con Carlos Andrés Garrido. 
Avda. Manuel de Falla 17, 5-c de San 
Fernando (CADIZ). Tlf.: (956) 89 1 1 
79 de 8 a 9 de la tarde. CP.2. 
Compro ampliación de memoria de 
64Kb HBM064 u otra marca. Christian 
Ortega Padró. Avda. Anselmo Calvé 
26, 4° 2.', Cornelia (BARCELONA). 
Tlf.: (93) 377 03 14. CP.2. 
Vendo ordenador musical Yamaha 
CX5M por 49900 ptas. José. Tlf.: 
(945) 25 66 50. CP.2. 
Vendo 007 Alta Tensión, Camelot 
Warriors y Pentagram a 800 ptas. c/u 
(sistema MSX) o los cambio por 
Phantis, Phantomas II o El Cid. Son 
originales. Facilito mapas y cargadores. 
Noel Matínez Vidal. C/. Mendizábal 
29, n.° 6. 4601 1 VALENCIA. CP.2. 
Compro revistas MSX atrasadas y li- 
bros sobre MSX (pogramación CM, 
descripciones del sistema, etc). Manuel 
Pinar Ruiz. U. Real de Cartuja 50. 
18012 GRANADA. CP.2. 
Vendo ordenador MSX Philips 8020, 
monitor Ambar 80, impresora matri- 
cial Philips 0030 (96 tipos de letras 



puede vender junto o separado. Regalo 
juegos. Buenos precios. Envío en 24 
horas. Juan Nievas Pérez. C/. Lepanto 
24, } B. 43202. Reus (TARRAGO- 
NA). Tlf.: (977) 32 33 67 (noches) 
CP.2. 

Vendo impresora plotter Sony en per 
fecto estado de uso y a precio regalado. 
Regalo plumines y si se quiere también 
programas. Escribir a Eustasio Vivien- 
te Acosta. C/. Jara Carrillo 28. 30740 
San Pedro del Pinatar (MURCIA0. 
Tlf.: (968) 18 2006. CP.2. 
Contacto con usuarios de MSX en 
Móstoles para cambiar programas, tru- 
cos e información en general del MSX. 
También para formar un club MSX en 
Móstoles. Antonio Jesús García Serra- 
no. C/. Arévalo* 2, 2 B. 28930 Móstoles 
(MADRID). Tlf.: 618 56 30. CP.2. 
Vendo/cambio juegos. Poseo entre 
otios Gaumlet, Army Moves, Arquí- 
medes XXI, Star Soldier, Knight Mare, 
Phantis. Oscar J. Urdangaray Beade. 
Tlf. (981)28 52 81. CP.2. 
Vendo ordenador Philips VG-8020 de 
80Kb, con garantía, cables, manuales y 
ambala je- original. Regalo más de 30 
cintas con juegos comerciales y utilida- 
des, todas con carátula. También inter- 
cambio programas en disco 3'5". En- 
viar lista a Fernando Gómez. C/. 
Montsant, 32, 3.°, LA BARCELONA 
0803 1 . Tlf. : (93 ) 357 88 22. CP.2. 
Vendo SVI-738 con unidad de disco 
3'5" incorporada. 3 sistemas operativos 
(CP/M, MSX-DOS y Disk-Basic;. Co- 
nexión RS-232, 80 columnas, salidas 
vídeo compuesto y televisor. Reset in- 
corporado. Maletín de transpone y 5 
manuales. Compatible ficheros IBM. 
Regalo dBase, Worstar y un montón de 
juegos y utilidades de todo tipo. Precio 
a convenir. Javier? horas de comida y 
noches. Tlf.: 401 9185 (MADRID). 
CP.2. 

Vendo ordenador Toshiba HX-10 
64Kb, en buenas condiciones. Además 
de regalar 50 juegos, revistas de MSX, 
cargador de cintas y una estupenda 
cámara de hacer fotos. Todo ello por 
sólo 24.000 ptas. C/. Molino, 48-50. 
BARCELONA 08016. Tlf.: 35065 20. 
Preguntar por Pedro Ruiz. CP.2. 
Vendo ordenador Philips 8250 MSX 
2 64 ROM, 3 semanas de antigüedad 
(en garantía). Regalo 10 discos llenos 
de programas. Lo vendo por compra de 
otro más grande. PVP: 80.000 ptas. 
Llamar de 10.30 a 12.00 noche. Tlf.: 
240 24 86. BARCELONA. Preguntar 
por Rafael. CP.2. 

Compro programas de dibujo, ensam- 
bladores y editores musicales en disco 
de V5" (MSX I y 2). También com- 
praría ratón. Jaime. Tlf.: 
(91) 479 76 26. CP.2. 
Cambio Track 6c Field II (carrucho), 
Chiller (cinta) y Panic Junction (cinta) 
por el juego Némesis (cartucho). Pre- 
guntar por Enrique. Tlf.: 
(91)232 24 01. MADRID Llamar a 
partir de las 1 5.30 y los fines de semana 
por la mañana. CP.2. 
Vendo ordenador SVI-738 XPress con 
manuales en castellano, conexiones, 
maletín de transporte y su embalaje. 
A estrenar. Tlf.: (976) 56 59 35. San- 
tiago Oliver. ZARAGOZA. Llamar ho- 
ras comidas. CP.2. 

unidad de disco ^ 'ncorpt >rad!o ' + Music 



Module (Philips) + 20 discos (llenos 
de los mejores programas)... todo in- 
tacto por 50.000 ptas. Jordi Maya Me- 
seguer. C/. San José, 14. 08370 Calella 
(BARCELONA). Tlf.: (9.3)7690640. 
CP.2. 

Intercambio lenguajes y programas 
para SV1-328 en CP/M-80. Tengo 
G)bol-80, Fonran-80, Forth, Turbo 
Pascal, Profile, dBase II, Word Star y 
MBasic. Koldo Navarro Pardo. C/. 
Juan Gardeazábal, t, 1.* A, Esc. C BIL- 
BAO 48004. BISKA1A. CP.2. 
Vendo ordenador Toshiba HX-10 de 
64Kb, con garantía 6 meses. Nuevo, 
con manuales, instrucciones e introduc- 
ción al BASIC 3 carruchos konami, 
cassette ordenador, joystick Sanyo y 
joystick Aristón. Todo junto o por se- 
parado. ¡Precio regalado por comprarlo 
todo junto! Miguel Garrido Pareja, Bib- 
rambia, 22, 1°. Tlf.: 22 28 52. GRA- 



Vendo consola de vídeo-juegos Atari 
en perfecto estado. Incluyo 2 joysticks, 
2 paddles, 8 juegos ROM (valorado en 
40.000). Precio 15.000 ptas. negocia- 
bles. Carlos. Tlf.: (93) 35475 88 a par- 
tir de las 21.00 h. CP.2. 
Compro programa para MSX - 1 (Spec- 
travideo SVI-728) para control de 
almacén-entradas, salidas, stocks, lista- 
do, etc, en disco de 5 1/4". José Miguel 
Rodríguez. C/. Rio Ser, 4, 3 B. 17003 
GIRONA CP.2. 

Intercambio programas originales 
para MSX. Poseo últimas novedades de 
ERBE, DINAM1C y KONAMI Inte- 
resados escribir a Joaquín Mintero 
Amat. C/. Constitución, 31, 3 °, dicha. 
03360 Callosa de Segura (ALICAN- 
TE0. CP.2. 

Vendo ordenador MSX-2 de Mitsubis- 
hi por 52.000 ptas. Jaime Buxeda. Tlf.: 

(93) 71097 82. Sabadell (BARCELO- 
NA). Llamar tardes. CP.2. 
Cambio/Vendo programas MSX ori- 
ginales. Paseo Gaumlet, army Moves 1, 
2, etc. Juan Garda Lizáa C/. Fulgencio 
Miñano, 7. Molina de Segura (MUR- 
CIA). CP.2. 

Compro/cambio Knightmare. Lo 
compro por 3 000 ptas. o bien lo cam- 
bio por Atlethic Land, Antanic Adven- 
ture, Monkey Academy, Soccer, Track 
& Field I, Kung-Fu I y Mouser. Fran- 
cisco Javier Ore llano Liza. C/. Mariano 
Vergara, 7, 5 ático. 30003 MURCIA. 
CP.2. 

Compro MSX 127kKb con pantalla de 
filtro verde y unidad de disco o IBM 
con pantalla de filtro verde y unidad de 
disco. Antonio Jesús Nieto Morales. 
Tlf.: 24 21 25. ALMERIA CP.2. 
Vendo Spectravideo 738 X Press com- 
pletamente nuevo (500 Kb). Urge su 
venta. Tlf.: (976) 56 59 35. ZARAGO- 
ZA. Preguntar por Santiago. CP.2. 
Contacto con aficionados que posean 
MSX (Toshiba HX-10) y que tenga 
conocimientos de electrónica para in- 
tercambiar ideas de fabricación de car- 
tuchos para controlar aparato telediri- 
gido por ordenador. Escribir a Imeldo 
de Castro García. C/ Cuesta de la Villa, 
117. 38390 Sta. Ursula (Sta. Cruz de 
Tenerife). CP.2. 

Vendo ordenador Spectravideo SVI- 
318 con cassette SV-904, manuales, 2 
juegos y joystick Qukkshot II por 
19000 ptas. José Félix Vicente. Tlf.: 

(94) 437 25 94. CP.2. 
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El basic paso a paso i 



,Por Willy Miragall. 



Estructuración de 




Hoy terminamos este repa- 
so a la estructuración de pro- 
gramas en BASIC. Pero que 
dejemos de hablar de la es- 
tructuración de los programas 
no quiere decir que debamos 
olvidarla. Veamos cómo po- 
demos utilizarla en todos 



nuestros programas. 



PROBLEMAS 

Aquellos que, desde nuestro pasado 
encuentro, se hayan decidido a 
probar lo aprendido desarrollando 
unas cuantas subrutinas para sus progra- 
mas, tal vez habrán empezado a notar 
tediosos errores, muy típicos en BASIC, y 
conocidos como efectos colaterales. 

¿Qué son los efectos colaterales? Como 
vimos en el pasado número, una subrutina 
es como un programa completo. Como tal, 
utiliza variables, saltos, etc. Uno de los 
mayores problemas de la codificación de 
subrutinas, sobre todo cuando hay muchas, 
es la posibilidad de utilizar dos veces el 
nombre de una variable. 

Debido a esto es muy posible que nos 
aparezca un error en una rutina que es 
correcta; pero cuyas variables han sido mo- 
dificadas por una subrutina situada en la 
otra punta del programa. Este tipo de 
errores son muy difíciles de localizar, ya 
que uno se empeña indefinidamente en 
corregir una rutina correcta. 

La mejor solución a este tipo de errores 
es no cometerlos. Pero ¿cómo conseguirlo? 
Uno de los medios mas utilizados es uti- 
lizar en las subrutinas nombres de varia- 
bles muy poco usuales. Es fácil encontrar 
en la subrutina de los buenos programa- 
dores en BASIC variables como QC%, 
WW% o ZX$. Si sabemos que todas las 
variables que empiezan por Q están utili- 
zadas por las subrutinas hemos dado un 
gran paso. Basta con no i 
que comiencen por Q en el ] 
principal. 

PASO DE PARAMETROS 

Otro de los problemas que surgen al 
utilizar subrutinas es saber qué parámetros 
hay que pasarle, en qué variable, cuáles son 
sus valores lógicos, etc. La mejor -solución 
a este problema es la utilización exhaustiva 
de líneas REM. En estas líneas, situadas al 
principio de cada subrutina, deberíamos 
indicar el nombre de la rutina, lo que hace, 
y qué posibles valores hay que colocar en 
las variables para que todo funciones co- 



- HIGH 
i« 33485356 



Para llamar a una subrutina, sea quien 
sea el autor, nos bastará entonces con echar 
un vistazo a las líneas REM que encabezan 
la rutina y colocar los valores adecuados en 
las variables que allí se indiquen. Para que 
todo sea más claro observad el listado 1. 
En nuestro pasado número habíamos re- 
alizado un programa que era capaz de 
realizar menús según los valores de ciertas 



variables. Hoy lo hemos convertido en una 
subrutina. Aquellos que seguisteis nuestro 
pasado número notaréis que los nombres 
de las variables han cambiado para que, de 
este modo, no haya interferencia posible 
con el progrma principal. 

Observad las líneas REM que encabezan 
la rutina. No todos los encabezamientos 
deben ser así; pero sí deben contener esta 
información. 

LLAMANDO A LA 
SUBRUTINA 

Observad el listado 2, en él encontraréis 
la forma de llamar a la subrutina definida 
anteriormente. Para ello empezamos in- 
sertando los valores adecuados en las va- 
riables indicadas por las líneas REM de la 
subrutina y, a continuación, llamamos a la 
subrutina mediante una instrucción GO- 
SUB. Todo fácil y evidente. 

Como veis, con una llamada a subrutina 
hemos condensado mucho trabajo. Existen 
en el mercado subrutinas a la venta que 
realizan un sinfín de trabajos. Desde la 
búsqueda y ordenación de datos en ficheros 
indexados a la realización de gráficos y 
animaciones en alta velocidad. Para utili- 
zarlas basta con algo de dinero (a los 
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programadores les gusta cobrar por su 
trabajo) y con saber el funcionamiento 
general de las subrutinas. Todo lo demás 



Ya hemos realizado rutinas, de acuerdo, 
pero si en cada uno de nuestros programas 
tuviéramos que teclearlas de nuevo no ga- 
naríamos mucho. 

Una de las principales ventajas de las 
subrutinas en BASIC es que pueden gra- 
barse separadamente y ser añadidas a cual- 
quier pograma de un modo muy sencillo. 
Gracias a esto la mayoría de programado- 
res desarrollan lo que se conoce como 
«librería de subrutinas». Cada vez que el 
programador debe hacer una tarea nueva 
(ordenar un fichero, realizar un menú, re- 
alizar una factura, etc.) no genera un pro- 
grama, sino una s,ubrutina. Un programa 
sólo le serviría para esa ocasión, mientras 
que la subrutina podrá utilizarla muchas 
veces en el futuro. 

Cuando un programador está realizando 
un programa, le bastará con generar algu- 
nas subrutinas. Las demás ya las habrá 
realizado en programas anteriores por lo 
que le bastará con añadirlas al final del 
-programa que está realizando. El ahorro de 
tiempo y trabajo es, obviamente, 
enorme. 

El BASIC dispone de comandos que per- 
miten grabar independientemente subruti- 
na para, de este modo, poder conseguir en 
una cinta o disco una completa librería de 
programas. 

Para grabar una subrutina hemos de 
borrar todas las líneas del programa prin- 
cipal y de otras subrutinas. Para ello po- 
demos utilizar la instrucción DELETE. Su- 
pongamos que tenemos un programa 




1 
2 

3 ' 

10 QN--7 

15 QT$='HENUS-CLUB' 

29 tt$U)**PriMra a 
25 Q0*(2)='Sequnda" 

30 Q0$(3)='Tercera' 
35 Q0*(4)='Cuarta' 
40 Q0$(5)='Quinta' 
45 Q0$(6)='Sexta' 
50 90$(7)='SeptÍM' 
55 GOSUB 10000 

60 PRINT QP 
70 END 



organizado de 
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... Programa principal 

4530 

10000 

... Subrutina a grabar 

10350 

11000 

... Otras' subrutinas 
34500 

Para borrar el programa principal 
haríamos 
DELETE 10-4530 

mientras que para borrar el resto de 
subrutinas podríamos realizar 
DELETE 11000-34500 

En este momento sólo queda en la me- 
moria del ordenador la subrutina que nos 
interesa grabar. Para grabarla haremos lo 
siguiente: 

SAVE "nom" (si deseamos grabarla en 
cinta) 

SAVE "nom" A (si la grabamos en 
disco) 

La instrucción SAVE (SAVE,A en disco) 
graba el programa (subrutina en este caso) 
en formato ASCII, en lugar del formato 
comprimido que utiliza el BASIC habitual- 
mente. Este formato permite que.se pue- 
dan fundir varios programas. Para ello 
utilizaremos la instrucción MERGE. 

MERGE «nom» 

Merge es parecida a LOAD o CLOAD 
en el sentido de que carga de la cinta; pero 
no carga un programa. Lo que carga es una 
subrutina que añade al programa que haya 
en estos momentos en la memoria de 
nuestro ordenador. Hemos de vigilar que 
la subrutina no tenga los mismos números 
de línea que nuestro programa, ya que en 
este caso la subrutina borraría el programa 
al cargarse. 



DESPEDIDA Y CIERRE 

Así pues, y tras esto, somos ya capaces 

de 

a/ Realizar programas que funcionen 
según los valores de variables en lugar de 
hacer siempre lo mismo (ver ejemplo del 
menú del pasado número). 

b/ Convertir estos programas en sub- 
rutinas. 

c/ Grabar estas subrutinas en cinta o 
disco. 

d/ Fundir las subrutinas con nuestros 
propios programas. 

e/ Llamar a las subrutinas desde nues- 
tros programas.' 



LISTADO 



tmmmmttm 
i t 

t SUBRUTINA MENU I 
t $ 

tmmmmnm 

Entrada: 

QN =nuiero de opciones 
QTf=ti tulo del menú 
G0$(l-n)=no«bre de las opcione 



Salida: 

QP=nuiero de opción elegida 



10000 
10010 

10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
s 

10110 
10120 
10130 
10140 
10150 CLS 

10160 WIDTH 40:KEY OFF 

10170 FOR M TO 40:PRINT :NEXT I 

10180 LOCATE 0,4:FOR 1=1 TO 40:PRINT ■ 

W"::NEXT 

10190 LOCATE 0,22:FOR 1=1 TO 40:PRINT 
"QW;:NEXT 

10200 FOR 1=1 TO 21 ¡LOCATE 0,I:PRINT ' 

V: LOCATE 39,I:PRINT T:NEXT I 

10210 LOCATE 0,0:PRINT " r" 

10220 LOCATE 0,4:PRINT 

10230 LOCATE 0,22: PRINT *■* 

10240 LOCATE 39,0:PRINT V 

10250 LOCATE 39,4:PRINT T 

10260 LOCATE 39,22:PRINT ,J '; 

10270 QX=(40-LEN(QT$))/2:LOCATE QX,2:P 

RINT 3T$ 

10280 QH=0 

10290 FOR QI=1 TO QN 

10300 IF LEN(Q0$(QÍ)))9H THEN Q«=LEN 

(OOIÍQD) 

10310 NEXT QI 

10320 QP=!40-QH)/2-2 

10330 QH=14-QN 

10340 FOR QI=1 TO QN 

10350 LOCATE QP, QH: PRINT CHR$(64+QI) 

";Q0*(QI) 
10360 QH=QH+2 
10370 NEXT QI 

10380 LOCATE 5,22:PRINT "Opción (A-";C 
HR$(64+ÜN);") 
10390 LOCATE 18,22 
10400 QA$=INPUT$(1) 

10410 IF QA$<V THEN QP=ASC(QA$)-64 E 

LSE QP=ASC(QA$)-96* 

10420 IF dP<l OR QP>QN THEN 10400 
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Software 



— 



IN THE RAILWAY 



■ por Pedro R. Aguilar i 



¿Quieres saber más cosas sobre el 
BASIC, formas de hacer todo más 
rápido y aprender nuevas técni- 
cas? Pues sigue leyendo. 




11 OPEN"grp:"AStl 

20 COLOR 1,15,15 

30 SCREEN2,2 

40 REH presentación 

50 FOR A=48TO80STEP5 

60 LINE(48+B,A)-(96*B,A+50),1,B 

70 LINE(49+B,A+l)-(95+B,A+49),7,BF 

80 LINE(144-B,A)-(192-B,A*50),1,B 

90 LINE(145-B,A*1)-<191-B,A+49),7,BF 

100 B=B+B: NEXT 

110 DATA !,N, ,T.H,E, ,R,A, I,L,«,A,Y 

120 B=0:FOR A=1TO6:READB$:PSET(106+B,S 

6) , 7iPRINT#l , Bf : B=B+4: NEXT 

130 bWoR A:1TO8:READB$:PSET(100*B,9 

8)^:PRINTtl,B$:B=B+5:NEXT 

140 FOR A=lTO5:PLAY'vl515sl4íl00ar5":N 

EXT 

150 A$=INPUT$m 

160 COLOR 1.14,1:CLS:CL0SE:0PEN"GRP:'A 
Sil 

170 LINE{0,0)-(255,10i,l,BF 

180 CIRCLE<30,30),15,10:PA!NT(30,30),1 

0 

190 LINEí0,i6í)-í255,192),7,BF 
200 L!NE!0,160>-(255,18B),1!,B 
210 LINE(0,16i:-(255,íB7),9,BF 





220 DRAWSs0,50c3el0f20e50f30el0f5el0f 
5el0t20e£f20e50f5e5«255,159i0.159i0.50 
••:PAINT(100, 100i,3 

230 DRAWB«40,^C15I-230^0F5«245.140«2 
40,150H30.150H25,14ÍH35. 7 5E5 , :PAINTÍ10 
0,100), 15' 

240 DRAH'Bf14?.70C7D50H27. 140BH230.70D5 
0f1245,M0' 

250 DRAM"BH40. ?0C7H230, 70F5H245, 140H24 

0, 150^0. 150f!25,140M35,75E5":PAINT(35, 

120\7:FAINT<239,125).7 

260 DRAH"B!141, 1 0C1D50?I27,140BI1230,-'0D5 

0H245.14?" 

2?0 FOR A=49TQA+i23STEP16:LINE'.A,90)-< 
A*16,125),l,B:LINE!A+l,91)-(A+15,i24), 
4,BF:NEXT 

280 LINE(195.104)-(217,14B),1,B 

290 FOR A=196TOA+16:LINE(A,105)-(216,1 

48),1,B:NEXT 

300 FOR A=212TO196STEP-1:L1NE(A,105)-! 
216,148), 15,B:NEXT:REH TERMINA 
310 REH DEFINE LOS SPRITES 
320 RESTORE330:FOR A=14336TOA+103:READ 
B:VP0KEA,B: NEXT: REH DATA CABEZA HOHBRE 
NUHERO 1 

331 DATA 7,15,24,22,34,40,39,18,9,15,5 



Este mes comenzamos una serie de 
artículos, cada uno de ellos con su 
respectivo programa, en los cuales 
se comentará paso a paso y linea por linea 
lo que en ella hay. Así intentamos dar 
también una pane de nuestro espacio a los 
que no son principiantes; pero tampoco 
saben mucho. El juego de este mes es muy 
sencillo. Primero explicaré de qué se trata 
y después lo comentaré. 

El juego trata sobte unos terroristas que 
han secuestrado un tren. Tú tienes que 
conseguir que nadie sufra daño. Con tu 
mira apunta donde ellos están y ves ma- 
tándolos. Al final de la partida se te dirá 
la categoría obtenida. 



COMENTARIO 
DEL PROGRAMA 

10 En esta línea abrimos un fichero para 
salida de textos en el modo de panta- 
lla 2. 

20-30 Se reinicializa el color con fondo 



8,71 , 198, 148, 146, 146, 192,240,24, 104,68 
, 20, 228, 72, 144, 241, 92, 226, 97, 169, 73, 20 
1 

341 DATA 3,5,9,17,23,40,52,38,33,16,19 

,8,15,53,126,237,192,64,64,64,224,16,4 

0,100,132,8,200,16,240,92,254,119 

350 DATA 7,8,8,8,15,24,54,36,33,36,19, 

8,15, 53, 66, 129, 224, 208, 16, 208, 240, 24, 1 

08,36,132,36,200,16,240,172,66,129,24, 

24,24,255,255,24,24,24 

360 REH TERMINA DE LEER DATOS DE LOS 6 

RAFICOS 

370 TIHE=0:PX=40:PY=10B:P=i:REH BUCLE 
PRINCIPAL 

380 ON STICK(0)6OSUB510,520,530,540,55 

0,560,570,580 

390 6OSUB650 

400 IF TIME=>6000THENGOSUB720 

410 PX=INT(RND(1)!200):IF PX=<50THENPX 

=200 

420 N S INT(RND(1) t3) 

430 TIEH=INT(RND«Dtl00) 

440 PUTSPPITEt,(PX,PY),l,N 

450 FOR A=0TOTIEH:GOSUB600:GOSUB650 

460 STRIG(0)ON:ON STRIGGOSUB620 

470 NEXT 
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blanco y letra negra. Se inicia la i 
de gráficos del modo de alta resolución 
(2) y se indica el tamaño del sprite. 
50-100 Esta pane del programa se encarga 
de realizar los cuadros de la presenta- 
ción 

1 10-130 Bucle que lee los datos de las letras 
y las escribe pero no las escribe normal- 
mente sino a la mitad de lo normal (o 
sea de 4 en 4 puntos y no de 8 en 8). 

140 Realiza un bucle que efectúa un sonido. 

150 Esta línea indica al ordenador que lea 
un carácter del teclado y en esta ocasión 
sirve de pausa. 

160 Se reinicia el color con un borrado de 
pantalla y se cierra y abre de nuevo el 
fichero comentado en la línea 10. 

170 Hace una línea desde el punto (0,0) 
hasta el punto (255,10) pero como se 
le indica en el BF rellena un cuadro 
entre esas dos posiciones. 

180 Dibuja el sol y lo rellena. 

190-210 Dibuja el suelo. 

220-260 Dibuja la estructura externa del 
vagón. 

270 Bucle que dibuja las ventanas. 

280 Dibuja marco de la puerta. 

290 Hace él efecto de obertura de la puerta. 

300 Hace el efecto de cerrarse la puerta y 
termina de dibujar el escenario o paisaje. 

320 Manda al ordenador leer 104 datas de 
los sprites y las mete en la memoria de 
vídeo a partir de la dirección 14336, que 
es donde empieza la tabla de atributos 
de sprites. 

330-350 Datos de los sprites. 



370 Define las variables que después co- 
mentaré. 

380 Con esta línea le decimos al ordenador 
que si se pulsa cualquier tecla de cursor 
salte a una línea donde se darán valores 
para las posiciones de los sprites. Estas 
líneas van de la 510 a la 580. 

380 Manda al ordenador a la subrutina de 
descontrol del punto de mira situada en 
las líneas 650-700. 

400 Indica que si el tiempo supera los 2 
minutos salte a la línea 720. 

420 Da un valor aleatorio a n con el cual 
nos saldrá un muñeco diferente. 

430 Da un valor a la variable TIEM. 

440 Posiciona el sprite en el plano 1, en 
la posición horizontal px y vertical py, 
el color 1 y el número retenido en la 
variable n. 

450 Realiza uno de los bucles más impor- 
tantes del programa, en el que se le 
manda con el primer salto a la rutina 
de control de cursor, con el segundo a 
la subrutina de descontrol de mira. 

460 Sigue con el bucle comprobando si se 
ha pulsado la barra y si se ha pulsado 
hace un «alto. 

470 Se hace un next. 

480 Se posiciona el sprite de la mirilla en 
el plano 2 con color rojo y el número 
de sprite 3. 

490 Retorna a la línea 380. 

500-580 Líneas en donde se suman o res- 
tan posiciones según qué tecla se ha to- 
cado. 



600 A esta línea se la llama cuando se 
quiere leer el estado del cursor. 

620 A esta rutina se le llama cuando se 
pulsa la barra espadadora. Si se detecta 
alguna colisión entre sprites se salta a 
línea 710. 

630 Retorna. 

650-700 Rutina de descontrol de la mira. 
710 Rutina de colisión donde se aumentan 
puntos. 

720-790 Rutina donde se ha la puntuación 
al final de la partida y se espera que 
pulses una tecla para comenzar de 
nuevo. 



LISTADO 

DE VARIABLES 

Time Variable del tiempó. Si se divide 
el valor entre 50 nos da la can- 
tidad de segundos que lleva el 
ordenador o programa en mar- 
cha. Se utiliza en este caso para 
que la partida dure 2 minutos. 

PX Posición horizontal del enemigo. 

PY Posición vertical del enemigo. 

p Es el paso que tiene que dar el 

sprite mira descontrolado. 

X Posición horizontal de la mira 

Y Posición vertical de la rnira. 

N Número de sprite a aparecer 

como enemigo. 

R Número para escojer opciones. 

Pu Puntos. 



480 PUTSPPITE2, (X,Y) ,8,3 
m 6OTO3B0 

500 REM noviiientos del cursor o lira 

510 Y=Y-1:RETURN 

520 Y=Y-1:X=X+1:RETURN 

530 X=X*1:RETURN 

540 X=X*1:Y*Y*1:RETURN 

550 Y*Y*1: RETURN 

560 Y=YM:X=X-1:RETUFN 

570 X=X-1:RETURN 

580 X=X-1:Y=Y-1:RETURN 

590 REM rutina para que cuandc los ene 

ligos esperen se pueda mover la lira 

600 ON STICK(0)6OSUB510,520,530,540,55 

J,560,570,580:PUTSPRITE2,(X,Y),8,3:RET 

610 REM rutina de disparo 

620 BEEPrON SPRITE 6OSUB710: SPRITEON: R 

ETURN 

630 RETURN 

640 REM rutina para el descontrol del 
punto de lira 

650 P*INT(RMD(l)t4):RsINT(RND(llt4) 
660 IF R=1THENY=Y-P 
670 IF R:2THENX=X-P 



690 IF R=4THENX=X+P 
700 RETURN 

710 RU»PU*l:LINE(0,0)-(130,10),i,BF:PR 
ESETÜfl, 1): COLOR 5:PRINT*1, "PUNTOS: ";P 
UsSPRITE OFF:6OTO410 
720 SCREEN0 

730 LOCATE10,10:PRINT"TU CATE60RIA ES 
DE:"; 



740 IF PU=<2THENPRINT"HAL0" 

750 IF PU=>3AND PU=<6THENPRINT"RESULAR 

CILLQ" 

760 IF PU=>6AND PU=<10THENPRINT'BUENO" 
770 IF PU=>Í0THEN PRINT'HUY BUENO" 
780 A$=INPÜT$(1) 
790 RUN 



Test 


de listac 






Para u 
no\ ¡ei 


sar el Tesl de L; 
1 programa corr 
íbrc. pág. 2H. 


".-.ido que publicamos al final de cada programa debe car- 
es pónchente publicado en nuestro número 7 del mes de 



10 - 64 


130 


- 48 


250 


-165 


370 -229 


490 


- 20 


610 


- 0 


730 - 19 


20 - 99 


140 


- 10 


260 


- 38 


380 -224 


500 


- 0 


620 


- 23 


n 40 -250 


30 - 23 


150 


- 96 


270 


-158 


390 - 39 


510 


-119 


630 


-142 


750 -230 


40 - 0 


160 


- 55 


280 


- 27 


400 - 29 


520 


- 73 


640 


- 0 


760 -223 


50 - 27 


170 


-214 


290 


- 48 


410 -245 


530 


-106 


650 


- 72 


770 - 73 


60 - 15 


190 


- 55 


300 


-132 


420 - 3 


540 


- 72 


660 


-155 


780 - 96 


70 - 93 


190 


- 49 


310 


- 0 


430 - 67 


550 


-108 


670 


-154 


790 -138 


80 -209 


200 


-236 


ia 


-237 


440 - 62 


560 


- 73 


680 


-156 




90 - 31 


210 


- 46 


330 


- 11 


450 - 91 


570 


-107 


6"0 


-155 




100 - 58 


220 


- 0 


340 


-186 


460 - 19 


580 


- 7 4 


700 


-142 




110 - 81 


230 


-195 


350 


-249 


47i -131 


590 


- 0 


710 


- 7o 


TOTAL: 


120 - 39 


•240 


- 43 


360 




480 -108 


600' 


-78 


720 


-214 


T 522 
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PROGRAMA GANADOR DEL CONCURSO DE VERANO 



DRAGONS 



Con Dragons, un videojuego de 
aventuras, Alberto Orante ha 
conseguido la primera posición 
en nuestro concurso de verano 



10 * 

20 ■ DRAGONS 
30/ 

40 '■ PROGRAMADO POR ALBERTO ORANTE 
50 ■ 

60 ' EDITADO POR MSX CLUB 
70 ' 

80 ' Ce] 1987. 
90 ' 

100 OLEAR 400 
110 DEFINTA-Y 
120 DIMEÍ14) 
130 OPEN"GRP: "AS#1 
140 COLOR 8,0,0 
150 SCREEN2,2,0 
160 ' 

170 ' CARGA DE DATOS GRAFICOS A 
180 ' LA MEMORIA 
190 ' 

200 F0RI=6144T06752: VPOKE I , 0: NEXT 

210 C=7:N»65:M=152:A*="Un Momento P 

or-fabor":GOSUB3680 

220 FOR Y= 1 6T0 1 44STEP64 : X=0 

230 FORI=64TO90: GOSUB240: X=X+ 1 : GOSU 

B240: X = X-*-7 : NEXT : NEXT : GOTO250 

240 PSET < X , Y ) , PQINT ( X , Y) :PRINT#1,CH 

R*(I> : RETURN 

250 FORI=0TO2:FORO=0TO2 

260 PSET (90+0 , 35+ I ) , 0 : PR I NTtt 1 , " DRA 

GONS": NEXT: NEXT 

270 COLOR0 : PSET (91,50), 0: PR I NT# 1 , » 

DRAGONS" 

280 RESTORE4490 

290 F0RI=8T0191:READA*,B* 

300 VPOKE I . VAL ( " ?<H " +A* J : VPOKEBASE ( 1 

1 ) + 1 ,-VAL ( " ?<H " +B* ) : NEX T 

3 1 0 RESTORE : FOR I =2056TO2239 : READ A$ , 

B* 

320 VPOKEI , VAL ( "?,H"+A*> : VPOKEBASE ( 1 

1 ) + 1 , VAL < " m " +B* ) : NEXT 

330 RESTORE : FOR 1=41 04TO4287 : RE ADA* , 

B* 

340 VPOKE I , VAL ( " 8*H " + A* ) : VPOKEBASE ( 1 
1)+I,VAL("&H"+B*) : NEXT 
350 GOSUB4250 
360 ' 




177) - (256, 192) 
" : GOSUB3920 



370 ' PRESENTACION 
380 ' 

390 GO5UB4450:LINE(í= 
, 0 , BF 

400 B=634B+9: A*=" 
4 1 0 B=684S--4 1 : GOSUB3920 
420 8=6848+23: A*=" " : GOSUB3920 
430 B--6S48+55: GOSUB3920 
440 B=6B7S : G0SUB4 1 30 
450 IFZP>ZSTHENZ5-ZP 

460 F- 1 28 : FOR I «6272T06336 : VPOKE I , F : 
F=F+1:NEXT 

470 B=6567:A*=" PRESS FIRE TO STAR": 
GOSUB3920 

480 I FSTP IG (0) =-1 THENJ «0 : GÜTO540 
490 I FSTR I G ( 1 ) — 1 THENJ = 1 : BOTÜ540 
500 GOTO480 
510 ' 

520 7 DIBUJO DEL MARCADOR 
530 ' 

540 V=3: ZP=0: GOSUB4450 
550 C=7:N=10:M=177:A*=" SCORE":GO 
SUB3880: C=B: N=10: M=185: A*="HI-SCORE 
" : GO5UB3880 

560 C=5: N=136: M=177: A*="LEVEL" : GOSU 
B3380 : C=6 : N= 1 36 : M= 1 85 : A*= " S CREEN " : G 
OSUB3880 











570 COLORIS: P5ET( 128, 137) ,<3:PRINT#1 
, " 01 23456789" 

580 PSET ( 1 29, 137) , 15:PPINT#1, "01234 
56789" 

590 C0LÜR9: PSET ( 208. 17") , 0: PRINT#1 , 
"#••" 

600 H=0 : H ( 1 > ~0: C (5) =0 

6 1 0 B=684B+9 : C=6 ¡ 2=0 : G0SUB3900 

620 B=6843+41 :C=6: Z=2S : GOSUB3900 

630 C (5) =0: RESTORE 4660 

640 IFH=44THEN2650 

650 B=6878 : GOSUB4 i 30 : K* 0 : H=l !+ 1 : H < 1 ) 
Hd)+! 

660 B=684S-<-23: C=2: 2 = I NT ( H/ i 2 ) * 1 : BQB 
UB3900 

670 B=6843+55: C = 2: Z=H : GGSUB3900 
680 FOR I - 0TÜ i 0 : PUT5FR I TE I , (0,-16X,0 
,30: NEXT 
0 ' 

700 7 DIBUJO DE LA PANTALLA 
710 » 

720 B=BASE(10) 

730 F0RI = 1T01'1 : READA*: A*=RIGHT* (STR 
I NG* (16," 0 " ) +BIN* ( VAL ( "&H " +A* ) 
740 FORO=lTOLEN(A*> 
750 A=VAL (MID* (A*. O, 1) ) 
760 IFA=1THENGOSUB870 

70 IFA=0THENGOSUB4130 
780 B=B+2: NEXT: B=B+32: NEXT 
790 IFH(1)=11THEN2810 
800 ? 

810 ' COLOCACION DE OBJETOS 
820 " 

B30 READA*: B=VAL < "&H"+A*> : GOSUB3980 
840 FOR I - 1 T04 : READA* : B=VAL ( " &H " + A$ ) 

GOSUB4040:NEXT 
850 READA*:B=VAL("S<H"+A*) :GOSUB4010 
860 GOTO950 
870 IFH(1)=11THEN900 

880 ON I NT < H / 1 1 > + 1 G0T04 1 00 , 4 1 60 , 4 1 90 
, 4070 

890 RETURN 

900 ON I NT ( H / 1 1 ) G0T04 1 00 , 4 1 60 , 4 1 90 , 4 

170 

910 RETURN 
920 ' 

930 ■ INICIO DEL JUEGO 
940 ' 

950 X=16: Y=31:S=0 

960 H(5)=INT(H/Í1)+1 

970 I FH < 5 ) = 1 THENH ( 4 ) =4 

980 IFH(5)=3THENH(4)=8 

990 U=1:0NH<1> GOSUB 1330, 1340, 1350, 1 

360, 1370, 1380, 1390, 1400, 1410, 1350 

1 000 I FH < 5 ) - 1 QRH ( 5 ) =3THEN 1 020 ' 

1010 U=2:OMH(1)GOSUB1350, 1420, 1430, 

1440, 1450, 1420, 1460, 1470, 1480, 1490 

1020 ONSPRITEGOSUB1 180: SPRITE ON 



1030 GOSUB 4370 

1040 FORI=0TO15:PUTSPRITE0', (X,Y),I, 
S: FORO=1TO50: NEXT: NEXT 
1050 PUT SPRITE 0,<X,Y),4,S 
1060 PLITSPRITE1, (UM) ,D(1) ) , 13,P<1) 
1070 IFH(5)=1ORH(5)=3THEN1100 
1080 PUTSPRITE2, (U(2) ,D(2) ) ,9,P(2) 
1090 U=2:ONH(i)GGSUB1540, 1780, 1310, 
1540, 1850, 1780, 1930, 1890, 1960, 1990 
1100 U=l:ONH(l) GOSUB 1540, 1580, 1540, 
1620, 1660, 1690, 1720, 1750, 1780, 1540 
1110 5=STICK(J) 

1120 ONGGO3UB2100, 1140,2140, 1140,21 
30. 1140.2220 

1 130 FORI=1TG200: NEXT: GOTO 1050 
1140 RETURN 1130 
1150 ' 

1160 ■ MUERTE DEL CABALLERO 
1170 ' 

1180 FORI=0TO3:PUTSPRITEI, í0,-to),0 
,30: NEXT 

1190 PUTSPF. ITE0. (X, Y), 12,23 
1200 GOSUB 4310 
1210 V-V--1 

1220 LINEÍ208, 177) -<'23?, 135) ,0,*F 
1230 IFV-0THEN2720 

1240 C0L0R9: PSET < 203, 177) ,0:PRINT#1 

, RIGKT* ( ",V*2-'-3) 

1250 FOR I -0TC500 : NEXT 

1260 PUTSFRITE0, (0,-1 6), 0,30 

1 2^0 IFC<5) - 1 THENRETURN ' 

12€0 RETURN 950 

1290 > 

1300 ' VARIABLES DE INICIO 
10 * DE LOS' ENEMIGOS 

1330 U'J) «123:D(U)=15:P<U>=8:R<ü>=+ 
H (4) : RETURN 

1340 Uí'J>=224:D(U)=143:F ',U)=10:F ÍU> 
=-H<4> : RETURN 

1350 U(U)=224:D(U)=143:P(U)=8:R(U)= 
-H<4; s RETURN 
-1360 U(U)=160:D(U) =79: P (U) =26: P CU) - 
+H (4) : RETURN 

1370 U.(U)=16:.D ■:U)=143:píU)=l^R(U) = 
-H (4 • : RETURN 

1380 U(U)=224:D(U) =79: P (U) =14 : R CU) = 
-H<4) : RETURN 

1390 UÍLn=224:D(U)=lll:F (U)=24:R^U) 
— H(4) : RETURN 

1400 U(U)=192:D(U)=111:P(U)=10:R(U) 
=-H(4) : RETURN 

1410. U(U) =16: D<U)=79:P<U)=12:R<U)=+ 
H(4):*RETURN 

1420 U(U)=16:D(U)=15;P(U)=12:R(U)=*+ 
H(4) : RETURN 

1430 U(U>=48:D(U)=31:P(U)=26:R(U)=+ 
H (4): RETURN ~ j 



2240 X=X-8: I FS=6THENS=7ELSES=6 
2250 RETURN 1050 
2260 ' 

2270 ' RUTINA DE DETECCION DE 
2280 " OBSTACULOS Y OBJETOS 
2290 • 

2300 B=BASE < 10) +INT (Q/8) + < INT ( W/8) * 
32) :L=VPEEK(B) 

23 10 I FL ::• 0 ANDK= 1 THENRETURN2350 
2320 IFL>4ANDK=0THENRETURN2350 
2330 I FT=0THENSOUND8 .12: SOUND0 , 255 : 
SOUND0, 100: SOUND0. 0: T=1ELSET=0 
2340 RETURN 

2350 IFL>9ANDL< 14THEN2420 
2360 IFL>13ANDL< 18THEN2530 
2370 I FL >0ANDL< 5THEN2600 
2380 RETURN 
2390 * 

2400 ' DETECCION DE LA LLAVE 
2410 1 

2420 IFL=10THEN2460 
2430 IFL=11THENB=B-1:GOTO2460 
2440 IFL=12THENB=B-32:GOTO2460 
2450 IFL=13THENB=B-33 
2460 GOSUB4130:GOSUB4330 
2470 B=6878:GOSUB4010:K=1 
2480 ZP=ZP+1000:B=684B+9:C=6: Z=ZP:G 
OSUB3900 
2490 RETURN 
2500 ' 

2510 ' DETECCION DE LA MONEDA 
2520 ' 

2530 IFL=14THEN2570 
2540 IFL=15THENB=B-1:GOTO2570 
2550 IFL=16THENB=B-32:GOTO2570 
2560 IFL=17THENB=B-33 
2570 GOSUB4130:GOSUB4350 
2580 ZP=ZP+500: B=6848+9: C=6: Z-ZP: GO 
SUB3900 
2590 RETURN 
2600 GOSUB4390 
2610 RETURN640 
2620 ■ 

2630 f SE ACABAN LOS CUATRO NIVELES 
2640 ' 

2650 GOSUB4450 
2660 B=6379: A*= " ENORABUENA" : G0SUB39 
20 

2670 B=6438: A*="HAS SALVADO EL REIN 
O":GOSUB3920 

2680 FORI=0TO10000: NEXT: GOTO 600 
2690 ' 

2700 7 FINAL DE LA PARTIDA 
2710 ' 

2720 FORI=0TO8:PUTSPRITEI, (0,-16) ,0 
,30: NEXT 
2730 GOSUB4450 
2740 B-6379: A*="GAME OVER" : G0SUB392 



1 

2750 FORI=0TO10000:NEXT 
2760 RETURN 390 
2770 ' • 

27B0 • RUTINA DE LUCHA DEL 
2790 ■ CABALLERO CON EL DRAGON 
2800 ■ 
2810 E(l)=3 

2820 E(2)=176:E(3)=30:E(4)=16:E(5)= 

18:R=-4:S=2:E(9)=0:E(10)=0 

2830 X m 1 20 : Y= 1 50 : SPR I TEOFF 

2340 ONSPR I TEGOSUB3480 : SPR ITÉON 

2850 FUTSPRITE0, (X,Y) , 4,S 

2860 PUTSPRITE3, (E(2) , E <3) ) , E < 1 > , E ( 

4) 

2870 PUTSPR I TE4 , < E < 2 ) , E < 3 ) + 1 6 ) , E ( 1 > 
, 17 

2880 PUTSF RITES, (El2)*Íi5»,E(3)tl4) ,E 
(1) ,E(5) 

2890 IFC (5) =0THENGGSUB3810 

2900 G=STICK<J) 

2910 IFG=0THENS=2 

2920 IFG^3TMENGQ3UB3140 

2930 IFG=7THENGOSUB3170 

2940 IFSTRIG ( J ) =-1 THENGOSUB3390 

2950 IFE(9)=1THENGOSUB3240 

2960 I FE < 1 0 ) = 1 THENGÜSUB33 1 0 

2970 IFE ( 10) -0THENGOSUB3420 

2980 GOSUB3030:GOTC2850 

2990 7 

3000 ' RUTINA DE MOVIMIENTO 
301^ ' DEL DRAGON 
3020 ' 

3030 E(2)=EÍ2)+R 

3040 IFE (5) -1 8THENE ( 5 ) =20ELSEE ( 5 ) = 1 
8 

3050 E<Ó)=E<6) +•!: IFE(6)=4ANDE(4)=16 
THENE (4>~19: E (6) -0: 60^030^0 
3060 I FE ( 6 ) =4ANDE (4) «i 9THENE % 4) » \ 6 : 

Eí6>=0 

3070 IFE(2>=5óANDR=~4THENR=+4 
30S0 IFE -2) ==-176ANDR-+4THENR=-4 
3090 RETURN 

31 1.0 ' ' RUTINA DE MOVIMIENTO 
3120 7 DEL CABALLERO 
'3130 ' 

3140 IF3=4THENS=5ELSES=4 
3150 IFX= 176THENRETURN 
3160 X=X+4: RETURN 
3170 IFS=6THEN5=7ELSES=6 
3160 IFX=56THENRETURN 
3190 X*X-4: RETURN 
3200 

3210 ' RUTINA DE MOVIMIENTO 
3220 ' DE LA ESPADA 

3230 ■ 

3240 E(7)=E(7)-8:PUTSPRITE6, (E'.G) ,E 
(7) ) ,7,22 

3250 IFE(7)=14THENPUTSPRITE6, (0,-ló| 




Programa 



«IB ir niD«(P«.I.n<"o W n[Q»(P«. i. 



1440 U(U)=192:D<U>=15:P<U)=8:R<U)=+ 
H(4) : RETURN 

1450 U CU) =176: D CU) =127: P CU) =8: R CU) = 
-H(4) : RETURN 

1460 U CU) =16: D CU) =143: P CU) =26: R CU) = 
+H (4) : RETURN 

1470 UCU)=144:DCU)=15:PCU)=8:R(U)=- 
H(4) : RETURN 

1480 U CU) =224: D CU) =143: P CU) =10: R CU) 
=-H(4) : RETURN 

1490 U CU) =208: D CU) =143: P CU) =6: R CU) = 
-HC4) : RETURN 
1500 \ 

1530 " 

1 540 I FP ( U ) =8THENP ( U ) =9ELSEP ( U ) =8 
1 550 I FD ( U ) = 1 5ANDR ( U ) =-H ( 4 > THENR ( U ) 
=+H<4) 

1560 IFD CU) =143ANDR CU) =+H (4) THENR (U 
) =~H (4) 

1570 D < U ) =D ( U ) +R < U ) : RETURN 

1 580 I FP ( U ) = 1 0THENP ( U ) = 1 1 ELSEP ( U ) = 1 

0 

1 590 I FU C U > =80ANDR ( U ) =-H ( 4 ) THENR ( U ) 
=+H(4) 

1 600 I FU ( U ) =224 ANDR ( U ) =+H ( 4 ) THENR ( U 
>=-H(4) 

1610 UCU)=UCU)+RCU) : RETURN 

1620 IFP CU) =26THENP CU) =27ELSEP <U> =2 

6 

1 630 I FU ( U ) =80 ANDR ( U) =-H ( 4 ) THENR ( U ) 
=+H(4) 

1 640 I FU ( U ) = 1 60ANDR ( U ) =+H ( 4 ) THENR ( U 
) =-H (4) 

1650 U(U) a U(U)+R(U) : RETURN 

1 660 I FP ( U ) = 1 2THENP ( U ) = 1 3ELSEP ( U ) = 1 

2 

1670 IFUCU)=224THENUCU)=16 

1680 U C U ) =U ( U > +R C U ) : RETURN 

1690 IFP CU) =14THENP <U) =15ELSEP CU) =1 

4 

1700 IFUCU)=16THENUCU)=224 
1710 UCU)=UCU)+RCU) :RETURN" 
1720 IFP (U) =24THENP CU) =25ELSEP (U) =2 

1730 IRUCU)=96THENUCU)=224 

1740 U(U)=U(U)+R(U) : RETURN 

1 750 IFP (U) =1 0THENP ( U ) = 1 1 ELSEP C U ) = 1 

0 

1760 IFU<U>=Í6THENU';U> =192 

1770 U C U ) -U ( U ) -**F: < U ) : RETURN 

1 780 I FR < U ) = 1 2THENP ( U ) = 1 3EL5EP ( U ) = 1 

2 

1790 IF'JfU)=224THENUCU)=l¿ 



1800 U(U)=U(U)+R<U) : RETURN 

1810 IFP CU) =26THENP ( U > =27ELBEP ( U ) =2 

6 

1 820 I FD ( L¡ > =3 1 ANDR ( U ) =-H ( 4 ) THENR í U ) 
=+H<4) 

1 830 IFD CU) = i 27 ANDR í U ) =+H (4 ) THENR ( U 
)=-H<4) 

1 840 D i U ) =D ( U ) +R í U ) : RETURN 
1 850 I FP ( U ) =STHENP ( U ) =9EL3EP < U > =3 
1860 IFD CU) =15ANDF. (U) =-H ( 4) THENR CU) 
=+H (4) 

1 870 IFD (U) = í 27 ANDR ( U ) =+H í 4 ) THENR ( U 

)*~HC4) 

1880 D<U)=D(U)+R(U) : RETURN 

i S90 IFP ( U ) =9THENP ( U ) =9ELSEP ( U ) =8 

1 900 : FU < U ) * í ¿ANDR ( U ) =-H < 4 ) THENR ( U ) 

=+HC4) 

1 9 i 0 I FU í U ) = i 44ANE/R ( U ) - +H ( 4 ) THENR ( U 
)=-HC4) 

1 920 U < U ) =U i U ) +R ( Ü )■ : RETURN 

1930 IFP CU) =2íTHENP <U> =27EL5EF (U> =2 

6 

1940 IFU(U)=224THENUCU)=tó 

2950 UÍU)=U(U>+R(U) : RETURN 

1 960 IFP CU) «1 0THENP CU? «11 ELSEP < U ) = 1 

0 

1 970 I FU ( U ) =4BTHENU ( U > =22 4 

1930 U (U) =U CU) +R (U) : RETURN 

1990 IFP ( U ) =4THENP CU) =5: GOTO2030 

2000 IFP ( J) =5THENP ( U) =4 : GÜTÜ2030 

2010 IFP 03) =£THENP CU) = 7 : GGTÜ2030 

2020 I FP ( U ) =7THENP ( U ) =6 

2030 I FU ( U ) = 1 6 ANDR ( U ) =-H ( 4 ) THENR ( U ) 

=+HC4) :P(U)=4 

2040 IFU (U) =208ANDR (U) =+H (4) THENR CU 

)=-HC4> :P(U)=6 

2050 U(U)=U(U)+R(U) : RETURN 

2060 ' 

2070 ' RUTINAS DE MOVIMIENTO 
2080 ■ DEL CABALLERO 
2090 ' 

2100 Q=X+1: W=Y-2: GO5UB2300 

2110 Q=X+15:W=Y-2:GOSUB2300 

2120 Y=Y-B : I FS=2THENS=3ELSES=2 

2130 RETURN 1050 

2140 Q=X+17:W=Y+1:GOSU.B2300 

2150 Q=X+17: W=Y+16: GOSUB2300 

2160 X=X+B: IFS=4THENS=5ELSES=4 

2170 RETURN 1050 

2180 Q=X+2: W=Y+17: GOSUB.2300 

2190 Q=X+15: W=Y+17: GOSUB2300 

2200 Y=Y+B: IFS=0THENS=1ELSES=0 

2210 RETURN 1050 

2220 Q=X-1:W=Y+1:GOSUB2300 

2230 Q=X-1:W=Y+16:GOSUB2300 



Programa 





) ,0,30:E(9>=0 
3260 RETURN 
3270 • 

3230 ' RUTINA DE MOVIMIENTO 
3290 ' DE LA BOLA DE FUEGO 
3300 ? 

3310 E < 1 1 ) -E ( 1 i ) +8,: PUTSPR I TE" 7 , { E { . L2 
> .E(il) ) .3,21 

3320 I FE ( 1 1 ) m 1 5BTHENE i 1 & ) mé 
333;? RETURN 
3340 •- 

3350 ' RUTINAS DE EFECTOS .SONOROS 
3360 > Y COORDENADAS INICIALES DE 
3370 r LA ESPADA Y LA BOLA DE FJEGC 
3330 9 

3390 I FE < 9 ) = 1 THENRETURN 

340:? SQUND0 . 20 : £ÜL'ND7 , S : SOU'JDS , 16:3 

DUND12,5:5DUND13, 15 

3410 E(9)=i:E(3'-X:E ¡ 7 sa J¡ 74 » RETURN 
3420 SOUND0.255:3OUNDS. UrSÜUMDIZ, 2 
0 : SO UN D 7 , 7 : S0UND6 , 30 : SOUND 17. tS 
3430 E(10>=Í:E-:i2)=E*:2) : E í 1 i ) -62: RE 
TURN 
3440 7 

3450 ' FUTI NA DE- COLISION DE 
3460 • 3RRITES 
3470 * 

3430 SPRITEOFF 
3490 IFE-.7) >E<3)+33CRE< 
N3500ELSE3530 
3500 I FE vil) : Y + ! 60RE ( 1 1 
40ELSE7C10 

3510 I FE ■' 12) = - X ANDE (•!£) 
30 

3520 GOTO3540 
3530 IFE(8)->E'2) 
THEN3530 

3540 5PRITE0N: RETURN 
3550 9 

3560 ■ DRAGON TOCADO 
3570 ' 

3580 PUTSPR ITE6, (0, -16) , 0, 30: E < 9 ) =0 
3590 E<7)=-16 

3600 S0UND8 ,16: SOUND0 , 255 : S0ÜND7 \ 7 : 

S0UND6 , 30 : SOUND 12,1 00 : SGUND 13,0 

3610 E(1)=E<1)+1: IFE(1)=15THEN3630 

3620 SPR I TEON : RETURN 

3630 FORI=0TO7000: NEXT 

3640 ZP=ZP+4000: B=6848+9 : C=6 : Z = ZP: G 

OSUB3900 

3650 FOR I = 1 T08 : PUTSPR I TE I , < 0 , - 16), 0 

, 30 : NEXT : S=2 : S0UND7 , 8 : H í i ) =0 

3660 PUT SPRITE0, (X, Y) ,4,S 

3670 FOR Í=0TO 100: NEXT 

3680 IFS=2THENS=3ELSES=2 

3690 IFX< = U8THENX = X+1 

3700 IFX>«118THENX=X-1 



:e<3> -GTriE 



L5THEN35 



!"X**2ITHEN37 



:(8>=--E-2)^70 



RUTINAS DE IMPRESION DE 
CARACTERES ALFANUMERI CQS 
I NUMERICOS EN SCREEN 2 



37 1 0 I F Y >- 1 6THENY-Y— 2 
3720 IFY=<-16TMEN630 

3730 S0UND3, 12: SOUND0 , 255: SOUND0, 10 
0:SQUND0,0 
3740 GOTO3660 
3750 * 

3760 ' MUERTE DEL CABALLERO 
3770 ■ 

37S0 S0UND7 , B : PUTSPR I TE7 , í 0 , - 1 6 ) , 0 , 
30 

3790 PUTSPR I TE6 , ( 0 , -- 1 6 ) , 0 , 30 : E ( 9 ) -0 
:E<10)=»0:E<11)=- 16 

3800 GOSUB í i 90 :SPRI TEON S RETURN2S20 
3810 SOUND1, l:FORI=255TO50STEP-25: 3 
ÜUND8 , 1/25: FORO^ITOI -40STEP--1 : SGUND 
0, 255-0: 3OUND0, O: NEXT; NEXT: SGUND 1 , 0 
: 3OUND0,0 

3820 C(S) «t : F O R I - 0 T O i 0 0 0 : N EXT: F E 7 U R 
N 

3830 ' 
3840 
3850 
3860 
3870 ' 

3880 CGLORC:FGRI=tTDLENÍA*> : G0SUB33 
90: N=N+1 : GOSUB3390 : N=N+6 : NEXT : RETUR 
N 

3390 PSET<N,M> ,POIMTiN,ri> :PRINT#1,M 
ID*(A$, 1,1): RETURN 

3900 B*«STR* < Z ) : A*»R I GHT* ( B* , LEN ( B$ 
)-l) 

3910 A*=RIGHT* ( " 000000" + A*, C) 

3920 FOR I = 1 TOLEN < A$ ) : A=ASC ( M I D* ( A* , 

3930 ' 

3940 ' RUTINAS DE COLOCACION DE 
3950 ' OBSTACULOS Y OBJETOS 

3960 ' 

3970 ' PASAD IZO 

3980 VPOKEB, 1 : VPOKEB +- 1 , 2 

3990 VPOKEB+32, 3: VpOKEB+33 , 4 : RETURN 

4000 : ' LLAVE 

4010 VPOKEB, 10:VPOKEB+1, 11 

4020 VPOKEB+32 ,12: VPOKEB+3: 
RN 

4030 9 MONEDA 

4040 VPOKEB, 14: VPCKEB+1 , 15 
4050 VPOKEB+32, 16: VPOKEB+3: 
RN 

4060 ' PEDRU8C0S 

4070 VPOKEE , 6 : VPOKEB* 1 , 7 

4080 VPOKEB+32, 3: vPOKEB+33 , 9 : RETURN 

40^0 ' LADRILLOS 

4100 VPOKEB, 5: VPOKEB+i , 5 

4110 VPOKEB+32 , 5 : VPCKEB+33 , 5 : RETURN 

4120 9 ESPACIO 

4130 VPOKEB , 0 : VPQKEB+ 1 , 0 



, 13:RETU 



, I 7 : RETU 
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LECTURA DE LOS I 
DE LOS SPRITES 



4140 ^.'P0KEB+-32, 0: VPOKEB+37, 0i RETURN 
4150 ' PLANTA 

4 160 VPQKEB ,13: VPGKEB+ 1,1? 

4170 VPGKEB+32, 20: VPOKEB+33, 21 : RETU 

RN 

4180 9 MATORRAL 

41?0 VPQKEB, 22: VPOfcEB+1 , 23 

4200 VPOKEB-i- 72, 23 : l'POKEB + 33, 22: RETU 

RN 

4210 ' 
4220 
4230 
4240 f 

4250 RE5TORE4800 

4260. FQR 1 = 1 4336T0 1 523 1 : RE ADA* : VPOKE 
I, VAL("&H"+A*> : NEXT 
4270 RETURN 
4280 ' 

4290 ? RUTINAS DE EFECTOS SONOROS 
4300 ■ 

43 1 0 SOUND 1,2: FOR I =255TO50STEP- 1 : SO 
UND8, 10:SOUND0, I : NEXT : FORO= 1 0TO0STE 
P-l : FORI=50TO0STEP-1 : SOUND0, I : NEXT: 
S0UND8, O: NEXT: SOUND0, 0: SOUND 1 , 0 ' 
4320 RETURN 

4330 FORO=10TO0STEP-1 : FÜRI=100TO50S 
TEP-1 : SOUND0, I : NEXT: S0UND8, O: NEXT: S 
□UND0,0 
4340 RETURN 

4350 F0RZ=11T02STEP~. 1 s SOUNDB, Z : SOU 
MD0 , 200 : SOUND0 , 1 80 : SOUND0 , 1 00 : NEXT : 
SOUND0, 0 
4360 RETURN 

4370 FORI=0TO rOI+50 



:SÓÚÑDá;i^f):"sÓÜÑD5^"üíÑÉxf:>jÉXT : SOUND 

0 ; 0 

4330 RETURN 

4390 FORT.=250TO50STEP-30: FORO=ITOI- 
50STEP- 1 s 50UND8 ,10: SOUND0 , O : NEXT : NE 
XT: SOUND0,0 
4400 RETURN 
4410 ' 

4420 " RUTINAS DE BORRADO DE 
4430 ■ PANTALLA 
4440 ' 

4450 FOR 1=6144706848: VPOKE I , 0: NEXT: 

RETURN 

4460 " 

4470 ' DATAS GRAFICOS 
4480 \ 

4490 DATA FF, Fl , BF, F3, BF, F3, FF, F3, F 

F,F3,F9,F4,FD,F1,FB,F1 

4500 DATA FF,F1,F1,F3,FD,F3,FF,F3,F 

F,F3,9F,F4,BF,F1,DF,F1 , FB , F 1 , FD , Fl , 

FE,F1,FF,F1,FF,F1,BF,F3,3F,F3,FF,F1 

4510 DATA DF,F1,BF,F1,7F,F1,FF,F1,F 

F , F 1 , FD , F3 , F 1 , F3 , FF , F 1 

4520 DATA EF, 7 1 , EF , 4 1 , EF , 4 1 , 0 , 1 1 , FE 

,71, FE, 41, FE, 41,0, 1 1 % 3F , Fl , FB, F8, 9B 

,F8,E6,F8,E7,F8,9B,F8,FD,F8,FF,F1 

4530 DATA FB, El , FE, El , EB, E4, 75, E4, B 

B,E4,F5,E4,FB,E4,B5,E4,EF,F8,FE,F8, 

57,F8,EB,F8,F7,A8,7F,A1, IF, A 1,0, 11 

4540 DATA FB, E4, F5, E4, FB, E4, F5, E4, E 

B,A4,FE,A1,DC, A1,0, 11 

4550 DATA 0,11,0,11,0,11,0,11,38,71 
,6C,71,47,7 / 1,47,71 

4560 DATA 0,11,0,11,0,11,0,11,0,11, 

1C,71,FE,71,FE,71,6C,71,3B,71,0, 11, 

0,11,0,11,0,11,0,11,0,11 

4570 DATA 14,71,14,71,0,11,0,11,0,1 

1,0, 11,0, 11,0, 11, 7, Al, 18, Al, 27, Al, 5 

D, Al , 58, Al , B5, Al , B5, Al , B8, Al 

4580 DATA E0,A1 , 18, Al , E4, Al , BA, Al , 1 
A , A 1 , AD , A 1 , BD , A 1 , 1 D , A 1 , BD , A 1 , BD , A 1 , 
B5, Al, 58, Al, 5D, Al, 27, Al, 18, Al, 7, Al 
4590 DATA AD ? Al , AD, Al , AD, Al , 1 A, Al , B 
A,A1,E4, Al, 18, Al, E0, A i, 78, 81, FE, 81, 
CF,3B,C7,8B,FE,81,7C,81,C,21,66,21 
4600 DATA 0,21^0,21, 1C, 21, 7E, 21, F0, 
21,EE,21 ,DF,21,DB,21,F7,21,DF,21,8F 
,21,37,21,7F,21,5F,21,F,21,F,21 
4610 DATA DB,21,F0,21,EC,21,DE,21,F 
F , 2 1 , E 1 , 2 1 , C0 , 2 1 , C0 , 2 1 , 6D , C 1 , FE , CF , 
D2,CF,EB,CF,57,CF, AE,CF,D5,CF,7F,CÍ 
4620 DATA B2, Cl , 6F, CF, BD, CF, 7B, CF, D 

E, CF,FB,CF,5D,CF,EE,C1 
4630 " 

4640 'datas pantallas 
4650 ' 

4660 DATA FFFF, 8101 , BD7D, A005, AF75, 
81 15, BD55, A041 , AD7D, 3101 , FFFF, 1842, 
184C, 18DC, 1954, 1A4C, 1A5C 



19 



0 



Programa 



4670 DATA FFFF , 800 1 , BDED , 9DED , 8C2D , 

8FA1 , AFAF, Al Al , BBBD , 880 1 , FFFF, 1A46, 

188C, 18C4, 195C, 19CC, 1A56 

4680 DATA FFFF, 93C9, A525, A895, AA55, 

824 1 , AA55 , A9 1 5 , A4A5 , 93C9 , FFFF , 1 890 , 

1844, 185A, 1A0E, 1A44, 1A5A 

4690 DATA FFFF , 881 1 , AA55 , A245 , AA55 , 

8811, AA55, A245, AA55, 881 1 , FFFF", 1 A5C, 

184A, 1854, 1A4A, 1A54, 1944 

4700 DATA FFFF , 850 1 , 85CF , 840 1 , S5EF , 

852 1 , EDAF , EC21 , EFEF , 800 1 , FFFF , 1 950 , 

184C, 1BDC, 1942, 1A5C, 1848 

4710 DATA FFFF , 800 1 , BBDD , 83C 1 , EFF7 , 

800 1 , BDBD , 8DB 1 ', 8C3 1 , 8C3 1 , FFFF , 1 9D8 , 

18CA, 19C6, 1A50, 1A5C, 1A06 

4720 DATA FFFF, BE01 , BE7D, A0C5, ACDD, 

A2C5 , 96B5 , C40 1 , F7FD , 800 1 , FFFF , 1 8D8 , 

184E, 1850, 188E, 1890, 1992 

4730 DATA FFFF, 8021 , 8E6D, B82D, 9BBD , 

C89D, E7CD, 8005, FEFD, FE01 , FFFF, 18D6, 

1890, 19C6, 1A1C, 1A4E, 194E 

4740 DATA 3F , FFA 1 , B0EF , 808 1 , FD8 1 , 80 

01, BB41, 8941, EF77,E001, FFFF, 185C, 18 

84, 191C, 18D2, 1A5C, 19CC 

4750 DATA FFFF , 803D , BFFD , A0 1 D , A3B 1 , 

A3B 1 , BB05 , 8805 , EFFD , 800 1 , FFFF , 1 8D4 , 

18C6, 19CA, 19CC, 19CE, 184E 

4760 DATA FE7F , E007 , C003 , 800 1 , 800 1 , 

2003 , C003 , C003 , C003 , E007 , E007 

4770 * 

4780 'datas spritss 
4790 ' 

4800 DATA 1 , 3 , 27 , 25 , 25 , 25 , 25 , 27 , 70 , 
3F,33,20,3,3,2,3,F0,F8,F8,5S,40, 3E, 
36, A2, 36,96, DC,0,AB,B0, 80,0, 1,3,27, 
25, 25, 25, 25, 27, 70, 3F, 33, 20, 2, 3, 0,0, 
F0, FB, F3, 58, 40, 3E, 36, A2,-36, 96, DC, 0, 
B8, 38, 28, 30 

4810 DATA 7,E,E,D,F,6F,60,6F,6F,6F, 
2F, 30, E, E, A, C, C0, E0, E4, 64, E4, E4, 4, E 

E , FC , EC , E4 , 0 , A0 , C0 , 0 , 0 , 7 , E , E , D , 6F , 6 

F , 60 , 6F , 6F , 6F , 2F , 0 , A , C , 0 , 0 , C0 , E0 , E4 
64,E4,E4,4,EE,FC,EC,E4,0,E0,E0, A0, 

C0 

4820 DATA 7,B, 15, 15, 15, 15,5, 15, E, 15 
B , 0 . E , E , A , C , 30 . E0 , A0 , A$ , A0 , AS , AS , 
E8, 1S,F3,D8, 10, A0,E0,0,0, 7,B, 15, 15, 
, 15,5, 15, E, 15, 1B,0, A,E,0,0,80,E0,- 

A0 , A0 , A0 , A8 , A8 , E9 , 1 8 , F8 , DS , 1 0 , E0 , E0 
, A0 , C0 

4330 DATA 3 , F ;, A , A , A , 20 , 3D , 3D , 3C , 3D , 
B, 0,5, 7, 0.0, C0 , E0 , B0 , D0 , D0 , B& , F0, E 
0, 0, F0, F0, 0, 70, 70, 50, o0, 3, F, A, A, A, 2 
3,3D,3D,3C,3D. 1B, ; 0, 7, 7, 5, 6. C0, E0, B0 
, D0 , D0 , B0 , F0 , E0 , 0, , F0 . F0 , 0 , 50 , 70 , 0 . 0 
49^0 DATA F , 1 F , 3F| , 23 ,21,31, 1 F , 1 D , D , 



F,A,5,F.7,0,0,E0,F0,F8,3B,3, 1S,F0,7 
0, 60, E0, A0, 40, E0, C0, 0, 0, F, 1F,3F,23, 



21,31, 1F, 1D,D,F,A,0,0,5,F,7,E0,F0,F 
3,38,8, 18,F0,70,60,E0, A0,0,0,40,E0, 

E0,70,38, 1C,E, 5>3,6,F, 1 



C0 

4850 DATA 0 

C, 38, 70, E0, 0,0,0, 0, C, 12,22,46, D8,C0 
, 80, 58, 64, 22, 12, C, 0, 0, 0, 0, 0, 0, 0> 38, 
7E,FF,6,FB,3C,0,0.0,0,0,0,0,0,0, 1E, 
61 ,-Cl , DE, C0, SE, 71 , 21 , 1E, 0, 0,0 
4860 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 36 , 5B , D 
7,86, 1,7,3,38, 46, D3, EF, F2, F0, FB, 66, 
18,3C,30,C,DC,DC,BC,78,0,0,0,0,0,0, 
0,0,0,28,76, 16,ED,23,C7,33,38,5E, A4 
,DA,F0,F0,FB,66, 1 8 , 3C , 30 , C , DC , DC , BC 
,78 

4870 DATA 7 , 3F , 67 , B, 1 4 , E , 1 , F , F , F , F 
0, D, 4D, 7D, 30, 80, E0 , F0 , F0 , 30 , D0 , AC , 5 
0, A8,58,F0,8,B8,BA.?E,CC,0,0,7,7F,6 
7,B, 14, E, 1 ,F,F,4F,8F,E0,7D,3B,0,0,3 

0 , E0 , F0 , F0 , 30 , D0 , AC , 50 , A<? , 59 , F' 
E,EC 

4880 DATA 7, F, 16, 5, 3C, 7F, FF, FD, 4E<, 7 
, 3E , 0 , 3 , 23 , A7 , FF , 80 ,C0, E0 , 70 , F0 , FS , 
FC , FC , BC , 5E , EE , D6 , AF , 57 , AD , 3© - 7F , 1 1 
,22,3, 1, 1, 1, 1,3,6, 3F, FE, C, Í0.0,0,9B 
, 79, A5, 13, C7, FF, EF , G0 , 0 , 0 , 0 , C0 , 0 , 0 . 
0 , 0 

4890 DATA 80 , E0 , F0 , FB , FE , FF s " ; T r , 9F . G 
3 , C0 , 70 , 3C , 70 , D3 , 8 , 0 , 0 , 4 , 4 , 3 , 38 , F8 
F0 , E0 , C0 , 0 . 0 , 0 . 0 , 0 , 0 , 0 „ 7 , F . t 2, 15, IB 
, 1F,F,F, 13, 1F, F, 0, 3, 23, A" 7 , FF, E0. F0, 
90 , 50 , B0 , F0 ,E3,EC,*A,F6,EE, Af , 57 
, AD,5B 

4900 DATA 30 , C0 , F0 , rr 3 , FE , FF. 7F . ' 1 , í 
7 , C i , E0 , 60 , 7C , 70 , FC , 9E , 0 , 0 . ¡b , 0 . ¡r , S0 
, C0 , C0 , E0 ,-1*0*70, 30 , 30 . 40 , 0 . 0 ,0, 1,1, 
1.4,1, i, B, 3, 6, 9,7,F.,D,F„7,0, 0,0, 0,3 
0 , 90 , 80 , C0 , C0 . C0 . E0 , E0 . A0 . E0 , C0 , ¡ 
49 1 0 DATA 0,1,1.1.1.1.1,1,0.^,1, 
, 0 , 0 , 0 , 0 , 0 , 60 , 80 , 30 , 30 , 30 , 30 , O , E 
, 80 . 30 , 0 , 0 , 0 , F . 3F ,71. 75 ¡.73, ~ r 5 , 7F , 7F 
, 7F,7F,7F,6F,«4,52.'54,FF,F0,FC,4E,3 
6,4E.5E,FE,FE,FE, C -E,FE,7E.B5,4A,52 
FF 

4920 DATA 1,3,7,2,6,3,41,70.70,37,1 
, 18, Í0, 11. 1B,E.C0,E0,F0,78,B8,3C,F4 
, 66, 6. FC, 18,0, E0 ,F0, IB, E, 3. 7,2. 0 . 0 
0, "", F3, 70, 37, E, 18, 10, 10, 19,F,E0,F0 
78, BB, 1C,7C,F6,E6,C,F8,0,0,0,2,E6,F 
C 

4930 DATA 0,0,0,0,0,0,60,90,88,63,9 
7,83,88, 10,20,20,0,0,0,0,0,0,8, 14,2 
0, BE, D2, 80, 30, 8, 4, 0,0, 0,0, 0,0, 0,20 
50, 8, E3, 97, 3, 18,20,40,0,0,0,0,0,0,0 
,C, 12.22,8C,D2,B2,22, 10,8,8 
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Test de listados 



Para utili/ar el Test de Listados que ofrecemos al Final de cada programa, recordamos que previamente hay que c.ir^.ir 
en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre, pá#. 29. 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. " Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 

PREMIOS 

5. ° MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. " MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
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Por Juan Prada 



ASTERLAND 



Aventuras en el espacio 
intergaláctico. Vive la emoción 
de la ciencia-ficción con la 
divertida aventura que presenta 
Juan Prada 




_ 



Versión 1.1 



I * A S T E R L A N D * | 
I Por Juan Prada. MSX 1986 | 







5 KEY4, "List":KEY5, "Run "+CHR*<13 
) 

10 DEFINT A-H,J-Z 

15 DIM OBJ (7) 

16 JOY=0:PSF=96:MUS=1 
20 WIDTH40 

30 SCREEN 2,2:C0L0R15,1,1:CLS 

40 ÜPEN"GRP: "ASI 

41 W=9 

42 GN INTERVAL=8 GOSUB 13500 

43 INTERVALÜFF 

44 PLAY"V912" , "V912 M , "V912" 

45 DATA 12,2,3,7,5,4,13,6,8,9,10,11 
, 14, 15 

47 REST0RE45: FOR H=2 Tü 15:XX=H*12: 
YY-H* 1 0 : RE ADH 1 : CT=H 1 : CF= 1 : AVX =6 : X*= 
" ASTERLAND " : GDSUB 1 5000 : NE X T 

48 XX=0: YY=184:CT=2: X*="Por Juan Pr 
ada. Cangas de ün í s" : GOSUB 15000 

49 PLAY"n55n52n571 ln59" , "n52n48n541 
ln56" , "n24n24n261 ln28" 

50 GOSUB 10000 
60 GOTO 11000 
70 ■ 

100 GOSUB 9000 

110 IF MUS=1 THENRESTORE 1 3560: INTER 
VAL ON 
120 VV=6 

1000 • Programa principal 
1 005 PUN=0 : NA V=3 : NA V*= " ***## " 
1010 X=4B: Y=0: CAV=1 1 : R0C=9: FUE=15B: 
F0RG= 1 T07 : OBJ (G) =0:NEXT: INCS=1 : tCB« 
1:LL=3:BAX=0:BR=159: M=ll: 12=13 
1020 PUT SPRITE 8, (8,23) , 10,8:PUT S 
PRITE9, (152,3) , 11, 8: PUT SPRITE 10, (1 
23,39) , 14,8 

1025 LINE(0,0)-(100,7) , 1,BF:PSET(0, 
0) , 1:C0L0R2:PRINT#1,LEFT*(NAV*,NAV* 

2) 

1030 SOUND 7,?<B00101010 

1032 SOUND 9,0:SQUND10, 16:S0UND11,2 




55 : SOUND 12,8: SOUND 13,9 

1040 LINEX 128, 176) - ( 158, 182) ,13, BF 

1045 LINE(110. 168) -(158, 174) ,5,BF 

1100 K=STICK(JOY) 

1110. D=STRIG(JOY) 

1150 IF K=30R K=20R K=4THEN GOSUB80 

00 

1160 IF K=70R K=80RK=6 THEN G0SUB82 
00 

1165 IF FUE=109 ANDY<176 THEN INCS= 
1: ICB=ICB+. 2: PUT SPRITE5, (0,-32) : PU 
TSPRITE4, (0, -32) : S0UND6, 0: S0UND9, 0: 
GOSUB6000: G0T01 180 

1170 IF D=-l AND Y>0 THEN Y=Y-INCS: 
INCS=INCS+.4: ICB=1:PUT SPR I TES, (X, Y 
♦•17) , 10,2:PUT SPRITE4, (X, Y+17) ,8,LL 
: I NTERVALOFF : S0UND6 , 63 : S0UND9 , 9 : GOS 
UBI 31 00 ELSEGOSUB6000: INCS=1: ICB=IC 
B+ . 2 : PUT SPR I TES , (0,-32): PUTSPR I TE4 
, (0, -32) : S0UND6, 0: S0UND9, 0 * 
1180 LL=LL+1:IF LL=5 THEN LL=3 
1185 I1=I1+.5:IF 11=14 THEN 11=11 
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Programa 



1186 12=12+. 5: IF 12=14 THEN 12=11 
1200 IFBAX=0 THEN Y=Y+ICB 
1210 PUT SPRITE2, ( X , Y) , 15.0: PUTSPRI 
TE3, (X, Y) ,5, 1 

1215 PIP«P0INT<X+3,Y*t7> :PGP=POINT( 
X+12., Y+17) : IF PIF-4 AND PGP=4 THEN 
GÜSUB 12400 ELS€ BAX=0 
1220 IF P0INT(X,Y+5>=7 GR PÜINTÍX+6 
,Y+2)=7 OR P0INT(X+15. Y+5)=7 OR POI 
NT(X+9, Y+2)=7 OR POINT ( X , Y+15) =7 OR 
P0INT(X+15,Y+15)=7. THEN GOSUB12500 
1230 IF OBJ(4)=0 THEN PUT SPRITE 11 
, (72,55) , 3,LL+6 

1240 IF OBJ(5)=0 THEN PUT SPRITE 12 
, (184,71) ,9,LL+¿ 

1250 IF OBJ(6)=0 THEN PUT SPRITE 13 
, (32, 143) , 15, II: IF 11=11 THEN SOUND 
4, 100:SOUND5,0:SOUND10, 16:S0UND13,9 
1260 IF OBJ(7)=0 THEN PUT SPRITE 14 
, (144, 103) , 11 , 12: IF 12=11 THEN SOUN 
D4, 101:SOUND5,0:SOUND10, 16:S0UND13, 
9 

5999 GOTO 1100 

6000 IF MUS=1 THEN I 
6005 RETURN 
8000 ' Mov. Derecha 

8005 IF X+2>240 THEN RETURN 
8010 X*X+2 

8199 RETURN 

8200 ' Mov. Izquierda 
8205 IF X-2<0 THEN RETURN 
8210 X=X-2 

8399 RETURN 

8998 CLOSE 

8999 G0T08999 

9000 ' 

9010 'Construcción de asteroide 

9011 ' 

9012 CLS 

9020 FORN=0TO150 

9021 XX=INT(RND<1)*255) : YY=INT (RND ( 
1) *192) :CL=INT(RND(1) *15>+1 

9022 IF CL=7 OR CL=4 THEN CL=15 

9023 PSET(XX.YY) ,CL:NEXT 

9025 PSET<0, 12) ,7 

9026 INTER VALOFF 
9030 RESTORE 9900 
9040 READ WA,WE 

9050 IF'WA=0 AND WE=0 THEN 9080 

9060 LINE-(WA.WE) ,7 

9070 GOTO 9040 

9080 PAINT(4,32) ,7 

9090 RESTORE9950 

9100 FOR N=l TO 7 

9110 READ WA,WE 



9120 PSET (WA,WE) , 1: COLOR 4:PRINT#1 

ii mmm< 

9130 NEXT 

9140 LINE(72, 152)-(167, 191) ,0,BF 

9141 PRESET(72, 152) : C0L0R2 , 2 : PR I NT# 
1 , ; : C0L0R6, 6: PRINTttl , "HH 
1":PRESET(72, 184) : C0L0R2, 2: PRINT#1 , 

:C0L0R6, 6: PRINT#1, ■■■HH 
9145 VB=0 

9150 FOR N=152 TO 159 

9160 LINE(v-B+72,N)-<167-VB,N) ,8: VB= 
VB+1 

9170 NEXT 
9175 VB=7 

9180 FOR N=184 TO 191 

9190 LINE(VB+72,N)-(167-VB,N) , 12:VB 
=VB-1 

9200 NEXT 

9210 LINE(72, 160)-(79, 183) , 2, BF: LIN 
E ( 160, 160) -( 167, 183) ,6,BF 
9220 COLORIS, 0 

9230 LIME (80, 160) -( 159, 183) , 10, BF 
9240 X*="PUNTOS: " : CT=1 : CF=10: AVX=6: 
X X=80 : Y Y= 1 60 : GOSUB 1 5000 
9250 X*="FUEL^ " : CT=4: XX=80: YY=168: G 
OSUB 15000 

9260 X*="BARRERA> " : CT=6: XX=80: YY-17 
6: GOSUB 15000 

9270 LINE ( 110, 168) - ( 158, 174) , 5, BF 
9280 LINE (128, 176) -(158, 182) , 13, BF 

9899 RETURN 

9900 ' Datos asteroide 

9905 DATA 4,16,4,24,8,40,24,40,28,4 
8,36,44,32,55,39,60,36,64,40,68,36, 
72, 40, 76, 56, 80, 71 , 72, 88, 72, 95, 88, 92 
, 103,76, 116,71, 124,64, 120,55, 125,48 
, 119,36, 127,28, 144,28, 156,31, 160 
9910 DATA 56,160,63,144,72,143,80,1 
48, 100, 132, 112, 130, 127, 127, 132, 119, 
135, 104, 133,91, lí 2, 87, 126,72, 127,56 
, 144,56, 151,71, 159,56, 168,48, 167.39 
, 152,26, 143,23, 15^,22, 168,21, 180, 19 
, 183,32, 188,30, 194,39, 192,52, 184,61 
, 180,72, 167,87, 175,92, 183,88 
9920 DATA 200,88,202,95,215,111,223 
, 111,230, 127,223, 135,208, 140, 192, 13 
6, 191, 128, 182, 120, 183, 112, 176, 100, 1 
68, 100, 160, 96, 144, 95, 144, 103, 140, 10 
8, 143, 120, 160, 122, 160, 134, 168, 136, 1 
72, 144, 176, 156, 184, 164,200, 170,216, 
168,232, 164,244, 160 

9930 DATA. 247 ,151, 248 ,112, 252 , 1 03 , 2 
55,96,254, 111,255, 120,252, 128.255, 1 
36,253, 144,255, 153,253, 183,242, 180, 
236, 187,215. 188,207, 183, 197, 187, 176 











p 185, 168, 183,71, 187,55, 191,40, 190,3 
1 , 183, 14, 188, 15, 175, 6, 175, 6, 159,8, 1 
52,4, 144,4, 137,0, 132,2, 122,5, 105,8, 
111, 20, 95 

9940 DATA 7,94,10,72,4,82,0,66,5,48 
,0,32,0, 12,0,0 
9945 * Datos bases 

9950 DATA 8,40,72,72,128,56,152,20, 

184,88, 144, 120,32, L60 

10000 ' Definición de Sprites 

10010 RESTORE 10101 

10015 B*="" 

10020 FÜRN=0 Tü 13 

10025 FÜR KÜKO ■ 0 TO 31 

10030 READ WAX 

10040 B*=B*+CHR$(WAX) 

10050 NEXT KGKÜ 

10060 SPRITE* (N) =B*: B$=" " 

10070 NEXT N 

10080 RETURN 

10100 * Datos Sprites 

1 0 1 0 1 DATA ~0 , 3 , 1 5 , 55 , 69 , 20 1 , 24 1 , 255 
, 127,63, 15, 1,3,3,7,0, 0, 192,240,236, 
162,147,143, 255 , 254 , 252 , 240 , 1 28, 1 92 
, 192,224,0 

10102 DATA 0,0,0,8,58,54,14,0,0,0,1 
6,56, 112,96,64,240,0,0,0, 16,92, 108, 
112,0.0,0,8,28, 14,6,2, 15 

10104 DATA 1,3,3,13,1,2,12,5,0,16,0 
,0,2,0,0,0, 128, 192, 192, 160,0, 176. 16 
0,0,64, 16,0,0,0,0,0,0 
10106 DATA 2,20,15,54,13,2,39,10,7, 
37,5,0,18,0,0,0,64,48,52,112,16,104 
, 160, 196,32,96, 160, 144, 128,0,32,0 
10108 DATA" 2,4,22,72, 14,21,7,75, 13, 
2,41, 1, 10,0,0,2,64,96, 160,50,80, 176 
, 100, 224, 176, 144, 192, 0, 144, 0, 128, 0 
10110 DATA 0,0,4,0,112,109,75.50,10 
8 , 2 1 2 , 2 1 0 , 86 , 59 , 78 , 1 03 . 0 , 0 , 0 , 0 , 96 , 2 
40, 16,208.96,48, 152,88,240, 192, 128, 
16,0 

10112 DATA 0,14,28,59,50,44,49,34,8 
1, 160, 154,233,220, 110,55,3,0,0,240, 
248, 188,92. 188,202,86, 195, 195, 147,5 
4, 116,232, 128 

10114 DATA 30,48,105,210,167,192,49 
,112,232,208,232,210, 104,49,5,0,0,4 
, 226, 222, 60, 92, 52, 80, 8, 36, 24, 164, 84 
, 12,248, 224 

10116 DATA 13,29,61,123,251,27,231, 
120,59,27,79, 13,5,2,2, 1, 176, 184, 188 
,222,223,216,231,30,220,216, 184, 176 
, 160,64,64, 128 

10118 DATA 0,48,88,120,49,2,33,0,8, 
28, 50, 50, 90, 172,64, 0, 0, 0, 0, 16,*42, 14 
4,0, 96,240, 208, 124, 50, 98, 228, 120, 48 
10120 DATA 0,7,15,28,25,94,168,64,1 
2,30,27,48,9,7,66,0,0,38,95, 173,6,9 
6, 176,240,96,2, 128, 144, 168, 16,0,0 



10122 DATA 0,0,0,0,0,0,0,B,0,83,28, 
120,212,200,244, 104,0,0,2,48,90,88, 
50, 118,234,202,90, 116,96,96,96,224 
10124 DATA 0,0., 0, 0,0, 16, 32,57,71,0, 
0, 104, 196,200,244, 104,0,0,2,48,90,8 
8,50,246,234,74,90, 116,224,240, 112, 
224 

10126 DATA 0,0,0,0,0,1,1,0,0,0,0,12 

0. 196.200.244. 104. 1.7.25. 120.236. 17 
2,218,238,234,74,90, 116,96, 112,88,2 
32 

11000 • Presentación 

11005 INTER VALÜFF 

11006 W=8 

11010 COLORIS, 1, 1:CLS 

1 1020 PSET (64, 8) , 2: C0L0R2, 2: PRINT#1 

, :PSET<56, 16) , 2: PRINT#1 , 

1 1030 PSET ( 160, 8) , 2: C0L0R2, 2: PRINTtt 

1, PSET (160, 16) ,2:PRINT#1, "■■ 
■ 

1 1031 COLORIS, 1 

1 1040 DRAWC3BM40, 36M60 , 4M80 , 0C2M 1 6 
7 , 0C 1 2M 1 88 , 4N207 , 36 " 

1 1045 COLOR, 3: DRAW"C3£M40, 36M207 , 36 

1 1 046 DRAW " C3BM80 , 0M72 , 38 " 

11047 PAINT(64,5) ,3 

1 1049 DRAW"C2BM40, 36M207, 36" 

i 1050 DRAW"C2BM80, 0M80, 38BM167, 0M16 

7,38" 

11051 PAINT(104,8) ,2 

1 1 052 COLOR ,12: DRAW " C 1 2BM40 , 36M207 , 
36" 

1 1 053 DRAW " C 1 2BM 1 67 , 0M 1 75 , 38 " 

11054 PAINT(176,8) , 12 

1 1060 DRAW " C8BM40 , 36M72 , 24M175, 24M2 
07 , 36M 1 75 , 47M72 , 47M40 , 36M40 , 36 " 
1 1070 PAINT(88,32) ,8 

11075 IF MUS=1 THENRESTORE 1 3560: INT 
ERVAL ON 

11080 PSET (88, 33) , 8: C0L0R7: PRINT#1 , 
"ASTERLAND" 

11081 PSET (89, 33) , 8: C0L0R7: PRINT#1 , 
"ASTERLAND" 

11090 C0L0R5:PSET(16,56) , 1:PRINT#1, 
"MSX":PSET(17,56) ,0:PRINT#1, "MSX" 
1 1 100 CF=1 : AVX=6: CT=1 1 : XX=100: YY=56 
:X*="Por Juan Prada ( C ) 1 986 " : GOSUB 
15000 

11110 LINE(24,76)-(87,90) , 14, BF 

11111 CT=6:CF=14: XX=40:YY=80: X*="PU 
LSA: ": GOSUB 15000 

11112 LINE(25,77)-(86,89) , 1,B 

1 1120 CF»1 : CT=10: XX=16: YY=96: X*=" 1 

Teclado" : GOSUB 15000: XX=16: YY=1 12: 
X*="2 Joystick (Port 1)":GOSUB150 
00: XX=16: YY=128: X*="3 Músi ca" : GOS 
LJB15000:CT=7: XX=16: YY=150: X*="0 J 
ugar": GOSUB 15000 
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11125 PSET<24, 128) , 1:PRINT#1, 

1 1 1 26 PSET ( 24 , 1 50 ) , 1 : PR I NT# 1 , " — ► " 
1 1130 LINE (0, 187) - (255, 189) , 4, BF 

11135 PSET(24,PSF> , 1 : COLOR 1 3 : PR I NT# 
1 , 

11136 IF MUS=1 THEN PRESET (88, 128) ; 
CGL0R2: PRINT#1 , "QN" ELSE PRESET (88, 
1 28 ) : CÜLÜR9 : PR I NT# 1 , " QFF " 

11139 IE=11:SA=255 

11140 K*=INKEY* 

11150 IF K*="l" AND PSF < >96 THEN P 
RESET ( 24 , PSF ) : COLOR 1 : PR INT# 1 , " m : P 
SF=96 : J OY=0 : PRESET ( 24 , PSF ) : COLOR 1 3 : 
PRINT#1 , "-► " : GOSUB 1 1210 
11160 IF K*="2" AND PSF OI 12 THEN 
PRESET ( 24 , PSF ) : COLOR 1 : PR I NT# 1 , " WM" : 
PSF=112: J0Y=1: : PRESET ( 24 , PSF ) -.COLOR 
t3sPRINT#l ? :GOSUB 11210 
1 1 1 65 I FK*= " 3 " THEN I FMUS= 1 THENMUS=0 : 
INTERVALOFF: PRESET (88, 128) : COLORI :P 
RINT#1 , : CT=9: CF=1 : XX=88: YY=12B 

: X*= " OFF " : GOSUB 1 5000ELSE I FMUS=0THEN 
MUS= 1 : RESTORE 1 3560 : I NTER VALON : PRESE 
T(88, 128) : COLORI : PRINT#1, "■■":CT=2 
: CF=1 : XX=88: YY=128: X*="ON " : GOSUB 15 
000 

11170 IF K$="0" THEN RUT SPRITE0, (0 

, -32 ) : SOUND 10,0: GOTO70 

11180 PUT SPRITE0, (SA, 170) , 14, INT(I 

E) 

11185 SA=SA-1:IF SA<-15 THEN SA=255 
11190 IE=IE+.2:IF IE>=14 THEN IE=11 
11192 IF IE=11 THEN S0UND7 , S/.B00 1110 
00 : SOUND 10,16: SOUND 1 1 , 255 : SOUND 12,3 
: SOUND 13,9: S0UND4 ,100: S0UND5 , 0 
11200 GOTO 11140 

11210 INTERVALOFF: S0UND7, 8<B001 1 1000 
: S0UND9 , 10: S0UND3 , 0 

11220 FORN=0 TO 255STEP7 : S0UND2, N: N 
EXT 

11225 SOUND9,0:IF MUS=1 THENINTERVA 
LON 

11998 RETURN 

11999 GOTO 11 999 
12400 Llegar a base 
12410 ICB=1:BAX=1:PH=PUM 

12415 IF X>4AND X <14 THEN IF OBJ ( 1 
)=0 THEN KL=l:PUN=PUN+100:FUE=FUE+2 
0 

12416 IF X>148 AND X<158 THEN IF OB 
J ( 2 ) =0THENKL=2 : PUN=PUN+ 1 00 : FUE=FUE+ 

20 

12417 IF X>124 AND X<134 THEN IF OB 
J ( 3 ) =0 THENKL=3 : PUN=PUN+200 : FUE=FUE 
+ 20 

12418 IF X>68 AND X<78 THEN IF OBJ < 



4 ) =0 THENKL=4 : PUN=PUN+450 : FUE=FUE+3 

0 

12419 IF X> 180 AND X< 1 90THEN I FOBJ ( 5 ) 
-0 THENKL=5 : PUN=PUN+540 : FUE*=FUE+30 

12420 IF X>28 AND X<38 THEN IF OBJ ( 

6 ) =0THENKL=6 : PUN=PUN+ 1 340 : FUE=FUE+4 

0 

12421 IF X>140AND.X<150THEN IF OBJ ( 

7) =0THENKL=7 : PUN=PUN+ 1 500 : FUE=FUE+4 

0 

12423 IF PH=PUN THEN 12499 

12424 IF FUE > 158 THEN FÜE=158 

12425 OBJ (KL)=1 

12430 PUT SPRITE KL+7, (0,-32) 

12434 I NTERVALOFF 

1 2435 S0ÜND5 , 0 : SOUND 10,11: FORG= 1 TOS 
8FÜRN=1 TO 255STEP1B:S0UND4,N:NEXTN 
:NEXTG:SOUND10,0 

12436 IF MUS=1 THENINTERVALON' 
12440 SS=0 : FORN= 1 T07 : I F OBJ(N)=l TH 
EN SS=SS+1 : NEXT: IF SS=7 THEN RETURN 
15500 

12445 LINE (110, 168) -(FUE, 174) ,5, BF 
12450 LINE(116, 160)-(159, 167) , 10, BF 
12455 PRESET (116, 160) , 10:COLOR4, 10: 
PRINT#1,PUN 

12499 RETURN 

12500 * Si chocas 

12510 SOUND 4, 1: S0UND5, 10: S0UND12,5 
:SOUND10, 16:S0UND13,9 
12515 ICB=1 

12520 L I NE ( BR , 1 76 ) - ( BR , 182) , 10 

12521 LINE(BR-1,176)-(BR-1,182) ,10 
12530 BR=BR-2:IF BR<127 THEN RETURN 

1 2900 

12899 RETURN 

12900 ' Explosión 
12905 INTERVALOFF 

12910 PUT SPRITE4, (0,-32) : PUT SPRIT 
E5, (0,-32) 

12920 S0UND6, 40: S0UND9, 16:S0UND12,4 
0:SOUND13,9:SOUND10, 16:S0UND5, 11 
12930 NAV=NAV-1: I FNAV=0THENFGH= 1 ELS 
EFGH=0 

12940 PUT SPRITE0, ( X, Y) , 10,5: F0RN=1 
TO250:NEXT:PUTSPRITE2, (0,-32) : PUT S 
PRITE3, (0, -32) 

12950 PUT SPRITE1, (X, Y) ,B,6:F0RN=1T 
0250: NEXT: PUT SPRITE0, (X, Y) , 10,6:PU 
T SPRITE1, (X, Y) , 15,7 

12960 FORN=0TO250: NEXT: PUT SPRITE0, 
(X, Y) , 10, 7: PUT SPRITE1, (0,-32) : FORN 
=0TO250: NEXT: PUT SPRITE0, (X, Y), 15,7 
:FORN=0TO300: NEXT: PUT SPRITE0, (0,-2 
3) 

12965 FORN=1TO1000:NEXT 
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12970 BR=158: FUE=158: X=48: Y=0 
12980 IF FGH= 1 THEN BOTO 13000 
12990 LINE (0, 0) - ( 100, 7) , 1,BF:PSET(0 
,0) , 1:C0L0R2, 1 : PRINT#1 , LEFT* (NAV*, N 
AV*2) 

12995 IF MUS=1 THENRESTORE 1 3560: I NT 
ERVALON 

12999 GOTO 1030 

13000 ? Muerte Final 

13005 IF MUS=1 THENRESTORE 13560: INT 
ERVALON 

13010 FORN=0TO 1 4 : RUT SPRITEN, (0,-32 
) :NEXT: COLOR, 1, 1 : CLS 

13020 CT=10:CF=1: XX=90: YY=56: X*= M Pu 

ntos: "+STR*(PUN) :GOSUB15000: IF REC< 

PUN THEN REC=PUN: XX=B0: YY=72:CT=9:X 

*="¡Has hecho record !": GOSUB15000EL 

SEXX=50: YY=72:CT=7: X*="E1 record es 

tá en"+STR* (REO : GOSUB15000 

13030 FORF=1TO9000: NEXT: GOTO 1 1000 

13100 Baja el Fuel 

13120 LINE (FUE, 168)-<FUE, 174) , 10 

1 3 1 30 FUE=FUE- 1 : I FFUE< = 1 09THENFUE= 1 

09 

13140 RETURN 

13500 ' Risica de fondo 

13520 READ B : 

13530 IF B=0THEN RESTORE 13560 
13535 S0UND7, &B00 101010 
1 3540 PLAY " v= W ; 1 32N=B ; " 
13550 RETURN 

13560 DATA 46,53,62,53,33,53,60,53, 
46,53,62,53,41,57,65,57,43,50,58,50 
,41,50,57,50,43,50,58,50,38,53,62,5 
3,39,46,55,46,38,50,53,46,39,46,55, 
46, 34, 50, 58, 50, 36, 50, 51 , 50, 34,50, 55 
, 50, 33, 48 

13570 DATA 53,48,29,43,51,45,46,50, 
53, 50, 41 , 46, 50, 46, 38 , 4 1 , 46 , 4 i , 34 , 38 
, 41 , 38, 31 , 38, 40, 42, 43, 45, 46, 48, 46, 4 
"3,45,46,48,50,52,53,48,52,55,52,43, 
48, 52, 48, 40, 43, 48, 43, 36, 40, 43, 40, 33 
,40,41,43,45,47,48,50,48,45,47,48,5 
0,52,53,55 

13580 DATA 50, 53, 57, 53; 45, 50, 53, 50, 
41,45,50,45,38,41,45,41,34,41,50,41 
,31,41,46,41,33,41,48,41,29,41,51,4 
1 

13590 DATA 34,.41 , 50, 41 , 31 , 41 , 46, 41 , 
33,41,48,41,29,41,51,41,34,41,50,41 
,35,43,53,43,36,43,52,43,37,45,55,4 
5 

13600 DATA 38,45,53,45,26,46,57,46, 
28 , 46 , 55 , 46 , 40 , 48 , 58 , 48 , 4 1 , 48 , 57 , 48 
, 29, 50, 60, 50, 31 , 50, 58, 50, 43, 52, 62, 5 

13610 DATA 45,48,50,52,53,55,57,58, 
60,58,57,55,53,51,50,48,50,46,45,43 

,41,39,38,36,34,36,38,36,34,33,31,2 

9 



13620 DATA 28,48,58,48,29,48,57,48, 
26, 46, 57, 46, 28, 46,55, 46 , 29 , 45 , 55 , 45 
, 33, 45, 53, 45, 34, 43, 53, 43, 36, 43, 52, 4 

13630 DATA 45,48,53,48,45,53,48,45, 
4 1 , 45 , 48 , 45 , 4 1 , 48 , 45 , 4 1 , 36 , 4 1 , 40 , 38 
, 36, 34, 33, 31 , 29, 33, 36, 41 , 45, 48, 51 , 5 
4 

13640 DATA 26,0 

15000 ' Sub rutina escritura 40 cara 
ct 

15010 LLL=LEN ( X* ) 
15030 FOR WASP=1T0LLL 

15040 PRESET (XX, YY) , CF: COLORCT,CF 

:PRINT #1,MID*(X*,WASP, 1) 

15045 XX=XX+AVX: IF XX>248 THEN XX= 

0 : YY=YY+ 1 

15050 NEXT WASP 

15100 RETURN 

15500 ' Coger todos los objétos 
15505 INTERVAL OFF 

15510 LINEQ10, 168)- (FUE, 174) ,5,BF 
15520 FORN=0TO14:PUTSPRITEN, (0,-32) 
: NEXT 

15530 CT=8: CF=1: AVX=6: XX=50: YY=0: X$ 
="Lo has conseguido •": GOSUB15000 

15535 GOSUB 15570 

15536 PUN=PUN+100 

15540 SOUND10, 13: S0UND9, 12: S0UND3, 3 
: S0UND5 , 0 : S0UND7 , 8<B00 1 1 1 000 : FORN= 1 T 

0 200: S0LJND4, N: S0UND2, N+55: NEXTN 

1 5550 FORN=200TO0STEP- 1 : S0UND4 , N : SO 
UND2, N+55: NEXTN: SOUND 10, 0: S0UND9, 0 
15555 LINE (0,0) -(255, 7) , 1 , BF 

15557 LINE (116, 160) -(159, 167) , 10, BF 

15558 PRESET (116, 160) . 10:COLOR4, 10: 
PRINT#1,PUN 

15559 IF MUS=1THENRESTORE13560: INTE 
RVALON 

15560 GOTO1010 

1 5570 SOUND 10,12: S0UND5 , 0: S0UND7 , &B 
00111000 

15575 F0RT#=FUE TO 109 STEP-1 
15580 L INE ( T# , 168)-(T#, 174) , 10 

15589 G= (T#*2. 5) -158 

15590 S0UND4, 255-G 

1 5595 PUN=PUN+ 1 0 : L I NE ( 1 1 6 , 1 60 ) - ( 1 59 
, 167) , 10,BF:PSET(1 16, 160) , 10:PRINT# 

1 , PUN 

15600 NEXTT# 
15610 RETURN 



Test de listados 



Para utilizar el Test de Listados que ofrecemos al final 
de cada programa, recordamos que previamente hay que 
cargar en el ordenador el Programa correspondiente 
aparecido en nuestro número 10, de octubre, pág. 29. 
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Programa 



Por R. Mueller 



DERIVADAS 
E INTEGRALES 



Derivadas e integrales, dos hue- 
sos duros de roer. R. Mueller ha 
preparado un meticuloso pro- 
grama mediante el cual la reso- 
lución es un juego de lo más 
sencillo. 



DERIVADAS E INTEGRALES 



R. MUELLER 
Creación de variables ## 



10 

20 
30 * 
40 ' 
50 ' 
60 " ## 

70 DIM D*<25> ,SD*<25) , I*(25) P SI*(25 

80 DIM N<5) 

90 FÜR X=l TG 25 

100 READ D*(X) ,SD*(X> , I*(X> ,SI*(X) 
110 NEXT X 
120 ' 

130 • ## Presentación ## 

140 CLS: COLOR 12, UKEY OFF:T=0:S=7: 

AC=0 

150 LOCATE 2,0: PRINT "TABLAS DE DERI 
VADAS E INTEGRALES" 

160 L0CATE2, 1 : PRINT STRING* (32, 61 ) 
170 LOCATE 5, 4: PRINT" TECLA 
OPCION" 

180 LOCATE 4, 5: PRINT STRING* < 26, 195 
) 

190 0P*(1)=" Tabla de der i vadas" : OP* 
(2)="Tabla de i ntegral es" : OP* (3) ="T 

est sobre deri vadas" : OP* (4) ="Test s 

obre integral es" :0P*<5)="Fi nal izar" 

200 FOR X=l TO 5 

210 LOCATE 6,S 

220 PRINT*; TAB< 10) ;OP*(X> 

230 S=S+2 

240 NEXT X 

250 LOCATE 2, 22: PRINT" > >> PULSA LA 

OPCION DESEADA < < < " : S=0 

260 0*=INKEY*:IF 0*="" THEN 260 

270 IF ASC<0*)<49 OR ASC(0*)>53 THE 

N260 

280 0=VAL<0*) 

290- IF 0=5 THEN CLS: NEW: END 
300 ON 0 GOTO 310,310,930,930 
310 CLS: LOCATE 4,0 

320 PRINT "CADA TABLA CONSTA DE 5 PA 
GINAS" 

330 LOCATE 4,3 

340 PR I NT " S I MBOLOS : " : PR I NT : PR I NT 
350 PRINTTAB (6) ; "- * Producto" : PR 
INT 




Exponenci al " 

- ' Derivada pri 

- (a) Base a":PRIN 



SON FU 



360 PRINTTAB (6) : "- 
: PRINT 

370 PRINTTAB (6) ; 
mera" : PRINT 
380 PRINTTAB (6) ¡ 
T: PRINT: PRINT 
390 PRINTTAB (6) : "a, c, m, n SON CO 
NSTANTES": PRINT 
400 PRINTTAB (6) ; "u, v, w 
NCIONES": PRINT: PRINT: PRINT 
410 PRINTTAB (3) ; "### ATIENDE A LOS 
PARENTESIS ###" 
420 FOR X=l TO 4000: NEXT X 
430 ' 

440 » ## Creación de las tablas ## 
450 CLS:S=S+1:C0L0R12,1 
460 LOCATE 0,0 

470 IF 0=2 THEN PRINT USING " TABLA 
DE INTEGRALES PAGINA #"¡S:C 

OLORB, 1:G0T0 490 

480 PRINT USING " TABLA DE DERIVADA 

S PAGINA #";S 

490 LOCATE 0,2 

500 PRINT STRING* (37, 220) 

510 FOR X=3 TO 19 

520 LOCATE 0, X 

530 PRINT T AB ( 0 ) ; CHR* (221) ; TAB ( 36 ) ; 
CHR*(202) 
540 NEXT X 
550 ■ 

560 ' ## Presentación tablas ## 
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LOS SECRETOS DEL 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción ai 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
I todos los modos. Juego Matemático. Más grande más pequeño. 
Póker. Breackout. Apocalypse Now. El robot saltarín. El archivo 




Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 
Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

* * BARCELONA 





570 LOCATE 0,20 

580 PRINT STRING*<37,223) 

590 FOR X=5 Tü 17 STEP 3 

600 T=T+1:L0CATE2, X 

610 IF 0=1 GÜTÜ 640 

620 PRINTCHR*<245) ; I*(T) ; "= ";SI*(T 
) 

630 LÜCATE2, X-l : PRINTCHR* (244) : GOTO 
670 

640 PRINT"y=";D*(T) 

650 IF S<>3 THEN LGCATE 16, X ELSE L 
□CATE 10.X 

660 PRINT"y :, =";SD*<T> 

670 NEXT X 

680 IF T>5 THEN 700 

690 L0CATE5, 22: PRINT" Pulsa un 

a tecla " : GOTO 710 

700 LOCATE l,22:PRINT"Pulsa una tec 

la (0 b pag. anterior) " 

710 D*«INKEY*:IF D*="" GÜTÜ 710 

720 IF D*="0" AND T>5 THEN S=S-2:T= 

T-10 

730 IF S=5 GOTO 140 

740 IF S=4 THEN BEEP: BEEP 

750 GOTO 450 

760 ' 

770 ' ## Datos ## 

780 DATAk, 0, dx , x+c, x , l f x**n»dx , <n* 

1 ) / (n+1 ) +c, u+v-w, u* +v* -w' , dx/x , lnx + 

c 

790 DATAu*v,u' *v+v' *u,dx/ (x + a> , ln <x 
+a ) +c , k*u, k*u ' , a A x *dx , a A x/lna+c 
800 DATAu/v, <u' *v-v i ' *u) /v' N 2,e s x*dx, 
e^x+c, u- s m,m*u - (m-1 ) *u' , senx *dx , -eos 
x+c 

810 DATAlog (a) u, u' /u*log <a)e,cosx*d 
x , senx+c, lnu, u' /u, tgx*dx , -ln cosx+c 
820 DATAlnx , 1/x , cotgx*dx , ln senx+c, 
a A u, a-' uUtu' lina, dx / (cosx ) •••2, tgx+c 
830 DATAa^Xpa'-xKQnajdx/ (senx ) - s 2, -co 
tgx+c, e" s x , e'-x , d x / J ( 1 -x ^2 ) , ar c sen x + 
c 

840 DATAu' v, u -v*v ? *lnu+v*u" (v-l) *u' 

, dx / < 1+x •'-2> , are tgx+c 

850 DATAsenu, u' *cosu,u' /u*dx , lnu+c, 

cosu,-u' *senu, senx/ (cosx ) -■2*dx , secx 

+c 

860 DATAtg u, u' / (cosu) '-2, cosx / (senx 
) ^2, -coseex+c 

870 DATAcotgu, -u'" / (senu) '-2, lnx*dx,x 
*lnx-x+c , secu, u" *secu*tgu, shu*du, ch 
u+c 

880 DATAcosecu , -u' *cosecu*cotgu, chu 
*du, shu+c, are senu, ú* /-I ( l-u" s 2) , thu* 
du,ln chu+c 

890 DATAarc cosu, -u ? / *¡ ( 1-u -2) , úu/4 ( 
l+u A 2) ,arg shu+c, are tgu, u' / ( l+u s 2> 
, du/^T <u' s 2-l ) , arg chu+c 
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Programa 



900 DATAarc cotgu,-u J / ( l+u"2) , du/ ( 1 
-u""2> , arg thu+c |u |'< 1 , 1 /| , -1 /x--2, 
du/ ( 1-U--2) , arg cotghu+c |u|>l 
910 ' 

920 » ## Rutina para test 

930 TT=0:AC=0 
940 FOR X-l Tü 5 
950 N (X) =INT (RND (-TIME) *25+l ) 
960 FOR Y = X-1 Tü 1 STEP -1 
970 IF N(X)=N(Y) THEN 950 
980 NEXT Y 
990 NEXT X 

1 000 ISI» I NT ( RND ( -TIME) * 5+ 1 ) : M=N (N) 
1010 ' 

1020 * ## Test derivadas ## 

1030 IF 0=4 THEN 1 130 

1040 CLS: COLOR 12,1:5-5 ' 

1050 LOCATE 2,2:FRINT"y=";D*(M) ; " ; 

y*=" 

1060 FOR X»i TO 5:T«N(X) 

1070 LOCATE 5,S:PRINTX;" ";SD$(T) 

1080 S-S+2 

1090 NEXT X 

1 100 GOTO 1210 

1110 ' 

1120 9 m Test de integrales ## 

1130 CLS: COLOR 6,1:S=5 

1140 LOCATE 2, 1 : PR I NTCHR* C 244 ) 

1150 LOCATE 2, 2: PRINTCHR* (245: : I*(M 



«te ir nio»(p». i 



1160 FOR X = l TO 5:T=NvX) 

1170 LOCATE 5,S:PRIN7X;" ":3I*(T> 

1180 S=S+2 

1190 NEXT X 

1200 * 

1210 7 ## Valoración del test #tt 
1220 LOCATE 33, 0: PRINTTT+1 
1230 LÜCATE1 ,17: PRINT" L CUAL CREES 
QUE ES LA SOLUCION ?" 

1240 LOCATE 2,19: PR I NT " ( Pul sa 0 par 

a terminar el test)" 

1250 A*=INKEY*:IF A***" " THEN 1250 

1260 IF ASC(A*) C4B OR ASC(A*)>53 TH 

EN 1250 

1270 A=VAL(A$) 

1280 IF A=0 THEN 1330 

1290 TT=TT+ 1 

1300 IF A=N THEN AC=AC+ 1 : BEEP: BEEP 
GOTO 940 

1310 LOCATE 4, 22: PRINT" LA SOLUCION 
ES EL NUMERO ";N:PLAY"D" 
1320 FOR X = l TO 4000: NEXT X:GOTO 94 
0 

1330 IF TT=0 THEN TT=1 
1340 PA=INT(100*AC/TT) 
1350 CLS:LOCATE 2,11: PR I NT " PORCENTA 
JE DE ACIERTOS: ": RA; "7." 

1360 FOR X=l TO 2500: NEXT X 
1370 GOTO 140 



Test de listados 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el progr; 
pondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 
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Software 
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¡por M. A. Vilai 




Uno de los últimos juegos de Di- 
namic ha alcanzado un enorme 
éxito en todos los sistemas. Hoy 
os ofrecemos el mapa y los carga- 
dores de vidas infinitas. 



PHANTIS 

Phantis es novedad en todos los orde- 
nadores y es uno de los mejores juegos de 
Dinamic. 

El juego tiene doble ca^ga, es decir, tiene 
dos panes, una cara de la cassette contiene 
la primera parte del juego, compuesta por 
cuatro fases con toda la emoción del mejor 
arcade. En la otra cara de la cassette se 
encuentra la segunda parte, una video 
aventura con todos los requisitos a que 
Dinamic nos tiene acostumbrados. Para 
acceder a ella necesitamos cierta clave que 
nos dan al finalizar la primera parte del 
juego y que diremos más adelante. 



INICIO 



Godofredo, cabo de la quinta patrulla de 
láser rojo tenía como misión tomar unas 
fotos de la superficie de un satélite llamado 
Phantis, ya que en tal satélite se habían 
producido varias desapariciones de naves 
comerciales. Mientras tomaba las fotos, 
hubo algún fallo en los motores de su nave 
y cayó en el satélite Phantis. Fue recogido 
y capturado por los habitantes de Phantis, 



llamados Phantasiosos, que eran especíme- 
nes muy malvados. Antes de capturarle, le 
dio tiempo de mandar un SOS a la Tierra, 
el mensaje fue recogido, pero sus compa- 
ñeros no se atrevían a ir. Godo tenía una 
novia, llamada Sabrina, era una mujer gua- 
pa, con un buen par de... (os lo imagináis) 



y con muchos amigos por el universo. Fue 
la única que quiso ir a esa misión para 
rescatar a Godo, estaba dispuesta a morir 
por él si fuera necesario (lo que hace el 
amor). Pero tú, como buen caballero, ac- 
cediste a acompañarla para que no le su- 
cediera nada de nada. 




¿Dejarás sola 



y peligroso planeta Phantis? 
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Este es el mapa de la 
segunda carga de 
Phantis. Para acceder a 
ella deberéis introducir 
el código de acceso 
18757. Con esto y ' 
nuestro cargador de 
vidas infinitas tenéis el 
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HELlCOPTtZO JCA 



PRIMERA PARTE 

Sabrina disponía de una nave intergalác- 
tica, muy buena, que llevaba lo último en 
rayo láser. 

Después de años luz de viaje comenzaba 
su misión, ya que los radares de Phantis 
detectaron un objeto no identificado en su 
espacio galáctico, los phantasiosos pidieron 
su identificación. Sabrina se negó a darla 
y desconectó la radio. Al ver que la nave 
se acercaba mucho al planeta, el coman- 
dante en jefe de las brigadas suicidas de 
Phantis, desplegó a varias tropas de naves 
por el espacio, tropas suicidas, es decir 
como los kamikazes. Sabrina te dejó al 
mando de la nave, para que te quitases de 
encima todas esas naves Phantasiosas. La 
sorpresa fue que el espacio estaba repleto 
de meteoritos que tenías que esquivar con 
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mucha astucia. Después de mucho esfuerzo 
y sudor conseguisteis llegar a la superficie 
del satélite, donde todavía os aguardaban 
muchos peligros. 

De pronto os empezaron a atacar por 
detrás, os pillaron desprevenidos; pero con 
mucha astucia conábguistéis esquivarlos, 
uevo comenzaban a salir naves de 
partes y para mayor desgracia la 



superficie del planeta Phantis estaba reple- 
ta de volcanes que hacían erupción al paso 
de la nave. Sabrina ya rezaba y tú esqui- 
vabas y matabas todo lo que se te ponía 
en medio. Después de mucho tiempo la 
Tierra se abrió y una fuerza brutal os atrajo 
a las entrañas del planeta. 

Ya dentro del satélite, en una especie de 
cavernas en roca viva, volabais sin rumbo. 
Otra vez vuestros enemigos dando la lata 
os disparaban; pero esta vez todo era más 
peligroso, ya que había una especie de 
vigilantes con forma de serpiente a los que 
sólo se les podía matar disparándoles en 
la cabeza. También había nebulosas que 
tenías que esquivar. 

Pasados todos los obstáculos llegasteis a 
unas marismas donde os esperaba una es- 
pecie de caballo y canguro gigante, el cual 
trasladó a Sabrina por el mar. Esta vez 



CARGADOR DE VIDAS INFINITAS (1) 



1 * CARGADOR - PHANTIS (1 PARTE) 

2 " PARA SER INMUNE A TODO 

3 * POR MIGUEL A. VILA LUGO 

4 'PARA MSX-CLUB 

5 =■ 

10 COLOR 13, 1, 1:SCREEN 2 

20 OPEN"grp: "AS#1 : COLOR 1 

30 LINE ( 10, 130) - (249, 20) , 4,B 

40 LINE (17, 120) - (242, 30) ,5,BF 

50 PSET ( 20 , 50 ) , X : PR I NT# 1 , " CARGADOR 

- PHANTIS (1 Parte) " 

60 PSET ( 2 1 , 50 ) , 1 : PR I NT# 1 , " CARGADOR 

- PHANTIS (1 Parte) " 

70 PSET (45, 74) , 1:PRINT#1, "Por í MIGU 
EL A, VILA " 



80 PSET (46, 74) , 1:PRINT#1, "Por MIGU 
EL A. VILA " 

90 FOR I*S<HFE00 TO S/.HFE11 
100 READ A*:C=VAL("S<H"+A*) : POKE I,C 
: J=J+C 
110 NEXT I 
120 IF J02293 THEN COLOR 15,1,1:SC 
REEN 0: BEEP: PRI NT "ERROR EN DATAS" :E 
ND 

130 CLEAR' 200,35000' 
140 BLOAD"cas: " , R 
150 BLOAD" cas : " 
160 BLOAD "cas: ",R 
170 BLOAD"cas: " 
180 DEFUSR=2<HFE00: A=USR(0) 
190 DATA 3E,0,32,E9,B6,32,EA,B6,3E 



FIñAL 



En la foto podéis observar un detalle de la primera Jase de este juego de la que, por st 
totalmente lineal, no incluimos ningún tipo de mapa. 
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disponía de una especie de boomerang 
sideral que desintegraba todo lo que tocaba. 
En esta zona salían cantidad de sapos gi- 
gantes y muchos de vuestros enemigos se 
tiraban desde el aire. 

Después de mucho tiempo matando bi- 
chejos os dieron una clave para poder 
pasar a la segunda pane, finalizando así la 
primera. 

SEGUNDA PARTE 

Para esta segunda parte os damos el 
mapa, que os será de una gran ayuda para 
realizar toda la misión 

Sabrina se encontraba en tierra firme, 
disponía de un propulsor y una gran ayuda, 



la de Boing, otro espécimen (esta vez bue- 
no) que pasaba por allí y que iba á ayudar 
a Sabrina, quitándole de en medio a todos 
sus enemigos. 

En un desnivel grande (fíjate en el 
mapa) Sabrina se separó de su amigo y se 
tiró al vado, cayendo cerca de un láser de 
iones, que le iba a ser muy útil Avanzaba 
por la izquierda. 

Mientras tanto buscaba vidas (unos co- 
razones grandes) y recobró el cargador de 
protones que haría que su láser fuera más 
efectivo. Tras pasar por cabernas y vege- 
taciones nunca vistas se encontró con una 
puerta enrejada. Puerta que no se abría, ya 
que necesitaba una llave, una especie de 
medallón con una S. Al encontrarlo volvió 



a la puerta y la abrió. 

Siguió avanzando, matando todo lo que 
se ponía en su camino. Se encontró otro 
desnivel, se lanzó y cayó en una laguna en 
la cual se dio un chapuzón. Esta vez avanzó 
a la orilla; pero se llevo una gran sorpresa 
al encontrarse con grandes bichos (especies 
de cocodrilos), que le mordían sin piedad 
y le iban quitando fuerza; pero siguió. Más 
adelante se encontró con un helicóptero. 
No se sabía cómo; pero al montar la tras- 
ladó a los pies de un volcán. Sabrina se 
introdujo en él, tenía que llegar al otro 
extremo, donde se estaba cerca de las maz- 
morras. En esta zona necesitaba tener mu- 
cho cuidado de no caer en lava ni que la 
tocara la lava impulsada hacia arriba. Des- 
pués de mucho esfuerzo y paciencia con- 
siguió pasarlo; pero todavía no era sufi- 
ciente, ya que caían grandes rocas 
volcánicas. Con una fuerte carrera y esqui- 
vando bien las rocas, consiguió pasar. Ya 
todo lo malo había pasado. Sólo faltaba 
matar a los últimos enemigos, llegar a las 
mazmorras y encontrar a Godofredo. Es- 
taba encadenado; pero vivito y coleando. 
Le desencadenó y como todos los finales 
tienen que ser buenos, éste no fufe menos. 
Compruébalo tú mismo. 

LOS CARGADORES 

Como nos parece casi imposible ver el 
final de las dos etapas, aquí os damos 
nuestros cargadores, para que consigáis ver 
feliz a Sabrina. 



CARGADOR DE VIDAS INFINITAS (2) 



1 * CARGADOR - PHANTIS (2 PARTE) 

2 'POR MIGUEL A. VILA LUGO 

3 'PARA MSX-CLUEt 

4 ' 

5 CLEAR 300,35500! 

6 COLOR 15,1,1: KEY OFF:CLS 

7 POKES/.HFCAB, 1 : POKE S<H88B1 , 0: POKE 8c 
H88B2,0 

8 FOR I = ?/.HF500 TO &HF50F 

9 READ A*: A=VAL ( "2<H"+A$) : POKE 




mnm 



■ riFim ■ a 
illlllli 



10 NEXT I 

11 IF JO 1762 THEN CLS : BEEP : PR I NT " E 
RROR EN DATAS " : END 

12 LOCATE 4, 3: PRI NT "CARGADOR - PHAN 
TIS ( 2 PARTE ) " 

13 LOCATE 5, 5: PRI NT "CLAVE DE ACCESO 
- 1 8 7 5 7" 

14 LOCATE 5,7:PRINT" POR M.A.V. PAR 
A MSX-CLUB" 

15 LOCATE 3,12: INPUT" QUIERES VIDAS 
INFINITAS (S/N) " ; V* 

16 IF V*="N" THEN POKE S<HBBB1,50 

17 LOCATE 3, 12: INPUT"QUIERES INMUNI 
DAD TOTAL (S/N) " ; V* 

18 IF V*="N" THEN POKE ?<H88B2,50 
1? SCREEN2 

20 BLOAD"CAS: " , R 

21 BLOAD" CAS: " 

22 BLOAD" CAS: ",R 

23 BLOAD "CAS: " ' 

24 DEFUSR=?<HF500:A=USR(0> 

25 DATA 3A,B1,88,32,B5,C4,3A,B2,8B, 
32,0A,C0,C3,B2,A7,00,0 



Sofa 



MSX-2 



i por Benjamín Llamas Ruiz ■ 



L'AFFAIRE 



L'affaire es mucho más que un 
juego de aventuras. L'affaire es la 
máxima exposición de las capaci- 
dades gráficas y sonoras de los 
MSX-2. 



*• Malditos traidores!, exclamó Raymond 
entre rejas y compañeros asesinos. Os 
encontraré y os mataré cuando salga de 
este sucio agujero. 

En este juego desempeñas el papel de 
Raymond Pardon, el típico ciudadano ama- 
ble, servicial y que jamas había matado una 
mosca. Pero bueno, te preguntarás, ¿qué 
recórcholis estabas haciendo en una cár- 
cel?; pues es bien sencillo de explicar. 
Habías sido culpado de un atraco que no 
habías cometido. En la miseria, y sin sa- 
berte defender, fuiste condenado a 6 años 
de prisión sin ninguna posibilidad de re- 
bajar la pena. Te sentías manipulado y con 
ganas de contar toda la verdad; pero ¿quién 
te iba a creer? Lo peor de todo no fue esto 
sino que habías conocido anteriormente a 
una chica con la que entablaste relacione* 
más que amigables y con la que pensabas 
formar pareja, pero después del lamentable 
suceso la dejaste de ver. Como diríamos, 
¡se esfumó! 

Los días iban pasando y seguías en el 
mismo sitio; siempre la misma comida, los 
mismos trabajos, la misma celda, la misma 
gente, ¡horroroso! ¿Que si se te había pa- 
sado por la cabeza la idea de una fuga? 
Claro que sí; pero preferías esperar hasta 
el último día y hacer las cosas bien. Al cabo 
de 6 años, por fin llegó ese día. Pasaste por 
la secretaría para que te entregasen la ropa 
con la que habías entrado y una pequeña 
cantidad de dinero para tus primeros gas- 
tos. Por fin se abrió la gran puerta de 
hierro y ante ti apareció un nuevo mundo, 
una nueva vida. Lo primero fue comprarte 
un poco de ropa y unos zapatos para ir a 
la moda. Más tarde creíste conveniente ir 
a comer algo diferente al rancho de aquel 
lugar tan repugnante. Mientras comías, 
comenzaron a pasar por tu cabeza, algunas 
ideas que te hicieron recordar el día del 
juicio. Tres personas fueron las que ates- 
tiguaron en contra suya. La primera, el 
dueño de un famoso restaurante en Can- 
nes; la segunda un ciudadano holandés, y 
la tercera un sospechoso residente en París. 
Posiblemente fueron ellos tres los autores 
del atraco o bien los cómplices; pero la 
tarea de descubrirlo te tocaba a ti y no 
tenías tiempo que perder. Así que lo pri- 
mero que hiciste fue ir a visitar a un 
estimado amigo tuyo de París para que te 
echase una mano. Como era de esperar, te 
ayudó y te j 
agenda con 




y un poco de dinero para tus gastos de 
viaje. Habiéndote despedido de tu amigo 
saliste hacia la estación para comprobar las 
salidas hacia toda Europa. Sabías que tus 
sospechosos se encontraban en algunas de 
estas ciudades: BARCELONA, CANNES, 
ROMA, HAMBURGO, AMSTERDAM, 
LONDRES. 

BARCELONA 

Decidiste primero ir a BARCELONA, y 
si más tiempo a perder tomaste el tren 
hacia España. Una vez en BARCELONA, 
visitaste la famosa Sagrada Familia. Aun- 
que no te sirvió de mucho te cogía de 
camino hacia el puerto. Una vez en los 
muelles del puerto buscaste a alguien que 
te pudiera dar información sobre lo que 
buscabas, así que te acercaste a un borracho 
que se encontraba tirado al lado de un 
contenedor. Lo despertaste y le preguntas- 
te sobre tu problema. Lo único que te 
respondió fue que lo había visto encima del 
cubo de basura. Tú te quedaste muy extra- 
.ñado; pero al observar que en la esquina 
había un cubo de basura te acercaste a ver 
si había algo y ¡eh, voila!, encontraste un 
papel con un número grabado en él. Exac- 
tamente era el número 2196, que aunque 
no sabías lo que quería decir, guardaste por 
si acaso. Continuando tu marcha por el 
puerto, te encontraste a un policía que te 



examinaba cuidadosamente. Perdone caba- 
llero, es simple rutina, con esto de los 
terroristas ya se sabe, y te la entregó de 
nuevo. Preferiste salir de aquel lugar, por 
si las moscas, y regresar a la estación para 
tomar el tren que te llevaría a Carines. 

CANNES 

Al amanecer ya te encontrabas en Can : 
nes, ciudad maravillosa y que los produc- 
tores escogían para sus películas, por el 
clima cálido. Paseando por la zona marí- 
tima de la costa, viste a un señor que quizá 
te pudiese ayudar, así que te acercaste. 
Buenas tardes señor, ¿sabría usted decirme 
exactamente dónde se encuentra el restau- 
rante más famoso de la ciudad? El te 
contestó con aire despreocupado: soy el 
mejor productor de cine y por eso me van 
a conceder la Palma de Oro. Viste que no 
te sirvió de mucho y decidiste optar por 
tomarte un refesco (el calor era agobiante). 
Fuiste a un bar de por allí cerca de donde 
se encontraba gente conocida del cine. 
Mientras te tomabas la cerveza, escuchaste 
una conversación en la que se hablaba del 
último golpe de tres atracadores. Esto te 
intereso y te dirijiste para ver si te ente- 
rabas de algo pero el esfuerzo fue inútil, 
se habían marchado. Antes de irte de la 
ciudad, recogiste unas postales que había 
en el puerto por si te servían de algo. Al 
ver que tus investigaciones no daban frutos 
te dirigiste a una nueva ciudad: Roma. 
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ROMA 

El viaje duró dos días y medio; pero te 
sirvió para ordenar rus ideas sobre lo su- 
cedido. Por ahora no habías obtenido re- 
sultados satisfactorios; pero te ibas encua- 
drando en el ambiente. Llegaste a Roma 
al atardecer y decidiste que ya era hora de 
descansar un poco en una posada. Cenaste 
y te acostaste esperando que el día de 
mañana te fuera mejor. Al día siguiente 



gentes de todos los países. En el interior 
del Vaticano encontraste otro montón de 
postales del lugar, las cuales cogiste sin 
saber de qué te servían. Cerca de la plaza 
te encontraste una cabina telefónica. Te 
acercaste a ella y sacaste la agenda que te 
había dado tu amigo. Marcaste el primer 
número señalado y te contestó una voz de 
chico como si te conociera de toda la vida. 
Colgaste pensando que te habían tomado 
por tu amigo y regresaste a la estación. 
Ahora te tocaba visitar la parte norte de 



Europa. 

HAMBURGO 

Empezaste por Hamburgo, y tomaste 
rápidamente el tren hacia dicha ciudad. Al 
llegar a la ciudad te dirijiste al puerto, 
donde te esperaba un contacto para pasarte 
información. Te estaba esperando al lado 
de un barco. En seguida te reconoció y 
comenzó a explicarte lo sucedido. Según lo 



i habían 



Londn 



para 
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que no los reconociera la justicia francesa 
ni los pudieran mandar de regreso a Fran- 
cia. Creíste conveniente tomar un barco 
que te llevase directamente a Londres para 
atraparlos; pero no tenías el suficiente di- 
nero como para pagar el viaje, así que 
tuviste que ir en tren hasta Amsterdam y 
desde allí tomar un barco, ya que la dis- 
tancia es más corta y el precio del viaje 
menor (claro está). Estabas impaciente por 
llegar a Amsterdam y tomar el barco que 
te llevaría a la venganza; pero todavía 
pensabas en las pruebas que ibas a presen- 
tar en la acusación. 

AMSTERDAM 

Con tanto pensar llegaste a la ciudad sin 
darte cuenta. Saliste de la estación y, sin 
perder ni un segundo, fuiste a comprar el 
billete de barco. Mientras cruzabas un 
puente se te acercó un señor que te entregó 
una especie de caja dorada, y echó a correr 
sin más explicación. Como tenías mucha 
prisa te la guardaste en tu maleta de viaje . 
y seguiste tu camino. Una vez con el billete 
en la mano fuiste al puerto donde estaba 
esperando el barco que te llevaría a 
Londres. 

LONDRES 

El viaje duró dos días y fue un poco 
«movidillo» Una vez fuera del barco cogis- 
te un taxi para llegar a la otra punta de 
la ciudad. En la otra parte de la ciudad se 
encontraba el más famoso «SEX SHOP» 
inglés. Dicho lugar se encontraba sumido 
en un tumulto de gentes inmenso, así que 
te pusiste a buscar a tu contacto sin perder 
el tiempo. Parecía que no lo ibas a encon- 
trar hasta que de repente apareció ante ti 
un callejón oscuro y profundo, el cual con- 
cordaba con la descripción que te había 
proporcionado tu otro contacto. 

Penetraste en él con un paso corto y 
sigiloso. Parecía que no había nadie, hasta 
que una voz detrás tuyo dijo: Me bus- 
cabas... 



CARACTERISTICAS 
TECNICAS 

Bueno, más o menos ya os hemos am- 
bientado un poco en la historia y espera- 
mos que lleguéis a buen fin con ella. 
A continucación paso a comentaros los 
detalles técnicos. En el momento en el que 
cargamos el juego nos aparece una pantalla 
de presentación en la cual se desarrolla 
toda la acción, cambiando de escenarios, 
claro está. La pantalla la podemos dividir 
en varias partes: 

1. La parte en la que se encuentra el 
mapa de Europa con los puntos señalados 



correspondientes a las ciudades. Mediante 
el cursor podremos optar por la ciudad a 
visitar con sólo colocarlo encima del punto 
y presionar espacio. 

2. Parte gráfica o situacional. Es la pan- 
talla que nos sitúa en el escenario de cada 
ciudad donde se desarrolla la accióa En ella 
podremos encontrar objetos de utilidad. 

3. Pantalla conversacional o informati- 
va. En ella aparecerán los textos informa- 
tivos o los diálogos entre tú y los restantes 
personajes. 

4. Intercambio. Se representan en la 
parte superior de la pantalla mediante dos • 
rectángulos o ladrillos de diferente color. 
El de la parte izquierda, corresponde al 
cambio de personalidad. Estas personalida- 
des pueden ser cuatro: Periodista, truhán, 
chico, ???? 

Según nuestra personalidad nos contes- 
tarán diferentes cosas. El de la derecha, 
representa la maleta de viaje. En ella po- 
dremos guardar cualquier objeto que en- 
contremos, de la misma manera que lo 
podremos dejar o utilizar. 

5. En la parte inferior izquierda apare- 
cen unas ventanas con distintas imágenes, 
según donde nos encontremos en esos mo- 
mentos. Se trata de unos submenús que 
nos llevarán a otros lugares diferentes. Esta 
clase de "fugares son muy importantes, ya 
que en ellos encontraremos lá mayoría de 
los objetos del juego. 

Hay que decir que en la parte inferior 
derecha se nos mostrará el objeto que 
estemos utilizando. El juego tiene dos op- 
ciones: GRABAR Y CARGAR. 

GRABAR: Nos permitirá grabar en un 
disco virgen la escena donde nos encontre- 
mos para seguir más adelante en este pun- 
to. Para ello sólo hace falta pulsar la tecla 
de función F-6, a continuación escribir el 
nombre que se le quiera dar a la pane 
almacenada y después pulsar enter. 

CARGAR: Para ello sólo hace falta pul- 
sar la tecla de función F-7. Cuando aparez- 
ca un signo de interrogación, introducid el 
nombre de la parte almacenada anterior- 
mene. Inmediatamente se cargará la escena 
donde te hubieras quedado. Procura no 
olvidarte de colocar luego el disco del 
juego. 



CALIFICACION 
GLOBAL 



Podemos decir que nos encontramos 
ante una obra de arte de la prestigiosa casa 
de software INFORGRAMES. Este juego 
posee unos magníficos gráficos, unas imá- 
genes digitalizadas de gran realismo y una 
música que se oye en pocos juegos. Bien, 
ya sólo os queda cargar el juego y encontrar 
a los tres traidores. 

¡BUENA SUERTE, MUCHACHO...! 




YA ESTA A LA 
VENTA EU.°B 




Video-Pokes 



por Miguel Angel Vila ■ 



PROFANATION 



Alo largo de 3000 años los mejores 
exploradores del mundo han in- 
tentado profanar el templo de 
ABU-SIMBEL. Entraban, pero nunca sa- 
lían para contarlo. 

Nuestro personaje, Johnny Jones, se 
adentró en el templo. Nada mas entrar se 
encontró con el malvado espíritu de Ram- 
sés II, que le echó una maldición, le dejó 
como un bicho raro, y ahora la única ma- 
nera de recuperar su figura humana es 
llegar a la cámara mortuoria. 

El juego se compone de 45 pantallas 
distintas, distribuidas en nueve pisos con 
cinco pantallas por piso. Para poder reali- 
zar el juego es necesario recorrer el templo 
en su totalidad hasta llegar a la última 
pantalla, que corresponde a la cámara mor- 
tuoria del faraón, en la que Johnny reco- 
brará su apariencia humana. 

Ten mucho cuidado con las pantallas, ya 
que para pasar a algunas necesitas la co- 
rrespondiente llave. Hay otras que están 
hechas para una vez dentro, no volver a 
salir (si no es muerto). 

Para completar este juego tenemos un 
número limitado de vidas, que irá descen- 
diendo según choquemos con algún obstá- 
culo o caigamos en una trampa 

Como creemos que este juego te va a ser 
imposible de completar, te hemos hecho el 
siguiente cargador, con él conseguirás 255 
vidas y podrás comenzar el juego en la 
pantalla que tú desees. 

II ' CARGADOR - PROFANATION 
21 'POR MIGUEL A, VILA LU60 
31 'PARA MSX-CLUB 
• 4f . 

51 COLOR 15,i,l:SCREEN P:KEY OFF 

60 FORI=*HA040 TO &HAI4F 

70 READ A$¡A=VALCfch'*A$):J=J*A 

80 POKE I,A 

90 NEXT I 

100 IF J02162 THEN BEEP: PRINT'Error e 
n Datos" : END 

110 LOCATE 5,10:INPUT"CUANTAS VIDAS (1 
-255>";V 

120 IF Vü OR V>255THEN 60T0 110 
130 POKE iHA094,V 

140 LOCATE 5,13:INPUT"PANTALLA INICIAL 
EH5)"gP 

150 IF Hi OR P)45THEN GOTO 140 
160 POKE fcHA092,P 
170 CLS 

180 L0CATE3, 10:PRINT"CARGANDQ ... PROF 

ANATION" 

190 BLOAD'cas:" 



200 POKE &HFAB8, &H40: P0KE&HFA89, &HA0 

210 DEFUSR=iHFA40:A=USR(0) 

220 DATA 3A,92,a0,32,AB,C0,3A,94,a0,32 

,B4,C0,CD,02.C0,C9 

- 



CAMELOT 
WARRIORS 

En el número de noviembre de nues- 
tra revista incluíamos el mapa de 
este fascinante juego. Ya en esas 
páginas, os avisábamos de la pronta apa- 
rición del cargador de CAMELOT WAR- 
RIORS. ¡Bien!, aquí está. Es mejor tarde 
que nunca, así que a continuación os en- 
tregamos el cargador de vidas infinitas de 
este divertido juego de DINAMIC en el 
que, como recordaréis, hemos de recoger 
cuatro objetos del siglo XX que se han 
perdido en un mágico mundo medieval. 
Sólo con un gran dominio de joystick (o 
con este cargador de vidas infinitas) con- 
seguiréis terminar esta fantástica aven- 
tura. 



B__ 



10 'CARGADOR - CAMELOT WARRIORS 
20 'PARA PARA VIDAS INFINITAS 
30 'POR MIGUEL A. VILA LUGO 
40 'PARA MSX-CLUB 
50 BLOAD'CAS:' 

60 POKE i.HCA67,StHC3:POKEtHCA68,0:POKE& 
HCA69,fcH9F 

70 FOR 1=I(H9F00 TO &H9F0C 

80 READ A$:C=VAL("&H"+A$):POKE I,C:K=K 

♦C:NEXT 

90 IF KO201B THEN CLS:BEEP:PRINT'ERRO 

R EN DATAS": END 

100 DEFUSR=iHC9DA:A=USR(0) 

110 'DATA F5,3E,FF,32,5C,B5,F1,CO,0E,AA 

,C3,6A,CA,00,00 



AUF WIEDERSEHEN, 
MONTY 

■ J ste juego se desarrolla en Europa. 
§H Monty quiere comprar una isla pero 
M A no tiene suficiente dinero Dará ello 



Tienes que ayudarle a recoger todos los 
vales de dinero que haya en los diferentes 
países de Europa. 

También hay objetos que si cogemos, 
luego podremos vender y otros que nos 
ayudaran a hacer trabajitos para cobrar las 
propias. 

Para viajar a distintos países de Europa 
podremos ir a lós transportadores, cada 
uno de ellos tiene un destino diferente. 

Para completar este juego dispones de 
un número limitado de vidas que (como 
siempre) irá descendiendo. Para que no te 
ocurra eso, teclea el siguiente cargador. 
Tendrás vidas infinitas y te será muy útil 
para completar el juego; pero aun con esto 
tendrás que estar horas delante de tu te- 
levisor si quieres ver el final de este 
juego. 

10 'CARGADOR , VIDAS INF. 
20 'POR MIGUEL A. VILA 
30 'PARA MSX-CLUB 

50 COLOR 11,1',1:SCREEN S:KEY OFF 

60 LOCATE 6,13:PRINT" Por MIGUEL A. V 

ILA" 

70 LOCATE 3,10:PRINT" CAR6AD0R - AUF W 
IEDERSEHEN, MONTY" 

80 LOCATE 12,17:PRINT'CARGAND0 ..." 
90 BLOAD^cas:" 

100 POKE &HD829 , 0 : P0KEÍHDB2A , Í.HD9: POKE 
&HD931,Í 

110 FOR I=iHD900 TO Í.HD90A 
120 READ A* 

130 DATA E5,21,0,0,22,7B,A9,E1,E9,C9,0 
0 

140 NEXT I 

150 IF N01247 THEN CLS:6EEP:PPINT'ERR 

OR EN DATAS '< END 

160 DEFUSR=&HD800:A=USR(0> 

170 DATA E5, 21, 0,0,22, 7B,A9, El, E9,C9,0 

0 
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¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 





E. SOFTWARE • 275 PTAS. N.° 20 - 1 75 PT AS. 




EgjB i/ % 1 

iÉif 



■ Q1W 0* MAUJIICi 


Im ii un I^^U 
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- 


N.°21-175 PTAS. 





N.° 26 - 225 PTAS. N.° 27 - 225 PTAS. 

55333 





N.° 33 - 275 PTAS. N.° 34 - 275 PTAS. N.° 35 • 275 PTAS. N.° 36 - 275 PTAS. N.° 37 -275 PTAS. 



N.» 38- 275 PTAS. 



¡SI TE HACE FALTA ALGUN NUMERO DE Ég^j PIDELO HOY MISMO! 

Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 

| BOLETIN DE PEDIDO . . 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 1 

1 gastos de envío, por lo que adjunto talón n.° del Banco/Caja I 

! &OMB^T APELLIDOS pta, al portador barrado. 
I CALLE N.° CÍUDÁd"" 

JDP ^.^..^ PROVINCIA TEL ZZZ'ZZZZZZ'ZZ 
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BPROGRjÉI 



í J 



SONY TIENE CANTIDAD DE PROGRAMAS 

Increíbles juegos de acción, destreza, inteligencia. 
Divertidos programas de dibujo y diseño. 
SONY lo tiene todo para que demuestres tus habilidades de 
campeón con el MSX. 

¿POR OJAL QUIERES EMPEZAR? 

Consigue más información y 
aprovéchate de las ofertas y 
regalos del Club SONY MSX 
enviándonos tu nombre, 
dirección y ocupación, junto 
a una fotocopia de la ga- 
I rantía de tu ordenador MSX a: 



Club SONY MSX Apartado de Correos 61.278 28080 MADRID 



